foo.pl
#!perl
%foo = (a => 1, b => 2);
for(keys %foo) {
  print "$_=$foo{$_}\n";
}