Select Code to Download

c:\@Work\Perl>perl -wMstrict -MData::Dump -le
"my %h1 = qw(foo 3  bar 99);
...
 dd \%h1;
"
{ bar => 186, foo => 8 }