Select Code to Download

#!/usr/bin/perl

...

print "Data Dumper:\n";
print Data::Dumper->Dump( [$as_hash],['as_hash'] );

Keys by value: key2 key3 key4 key6 key5 key1
Sorted values: apples bread butter cake oranges steak
...
           };