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