ハッシュをループ内で処理する

foreachを使う

my %hash;

foreach my $key ( keys %hash ) {
printf("%s:%s\n", $key, $hash{$key});
}

whileを使う

while(my($key, $value) = each %hash){
printf("%s:%s\n", $key, $value);
}

参照
http://perldoc.perl.org/functions/keys.html
http://perldoc.perl.org/functions/each.html