use strict;
use warnings;

my $num;

# このコメントのままだとaaa、はずすとbbbと表示されます。
# なぜでしょうか?
# $num = 2;

$num ||= 1;


my $str = $num == 1 ? 'aaa' : 'bbb';

print $str;