Perl には，ハッシュのキーと値を対にしてとることのできる each というオペレータというか関数というかがあるのですが， my %h = ( 'a' => 1, 'b' => 2, ... ); foreach my $key (keys %h) { print $key, " => ", $h{$key}, "\n"; } # equivalent to: while…