>perl -wMstrict -le
"my %hash = qw(a 1  b 2  c 3);
 my $hashref = \%hash;
 ;;
 for (1 .. 3) {
   my ($k) = each %$hashref;
   print qq{'$k' => '$hashref->{$k}'};
   my @ra = %$hashref;
   }
"
'c' => '3'
'c' => '3'
'c' => '3'