たまに条件によってどちらかしか変数を使わない時がある。 my $foo; $foo ? my $bar = 111 : my $coo = 222; print '$bar :' . $bar . "\n"; print '$coo :' . $coo . "\n"; 可読性が悪いか。。