>perl -wMstrict -le
"{ my %h = qw(a 1  b 2  c 3);
   while (my ($k, $v) = each %h) {
     print qq{$k -> $v};
     }
   }
"
c -> 3
a -> 1
b -> 2