c:\@Work\Perl\monks>perl -wMstrict -le
"my %hash = (4 => 12, 34 => 102);
 ;;
 while (my @kv = each %hash) {
   local $, = ' => ';
   print @kv;
   }
"
4 => 12
34 => 102