c:\@Work\Perl\monks>perl -wMstrict -le
"my %hash = (4 => 12, 34 => 102);
 ;;
 while (my %h = each %hash) {
   printf qq{%s => %s \n}, %h;
   }
"
4 => 12
34 => 102