書き捨てPerl #2 map hash array sort

# 3の倍数のkeyのときだけvalueをあほにする
my %aho =  map { $_ , $_ % 3 ? "あほじゃない" : "あほ" } 1..100;
say "$_ : $aho{$_}" for sort {$a <=> $b} keys %aho;