Select Code to Download

$ perl -MData::Dump -e "sub f{dd\@_; $_++ for @_;} my %g = 1..4; dd\%g
+; f(%g); dd\%g; "
{ 1 => 2, 3 => 4 }
[1 .. 4]
...
    3   5
}

$ perl -MData::Dump -e " my %g = 1..4; dd\%g; $_++ for keys %g; dd\%g;
+ $_++ for values %g; dd\%g; "
{ 1 => 2, 3 => 4 }
{ 1 => 2, 3 => 4 }
{ 1 => 3, 3 => 5 }