Select Code to Download

%hash = ([1,2] => "STUFF");
foreach $key (keys (%hash) )
...
    print "key |$key| => value |$hash{$key}| :".
          " dereferenced key |@{$key}|\n";
}

key |ARRAY(0x80fbb0c)| => value |STUFF| : derefenced key ||