$ perl -MData::Dump -e " sub ff($$){ qq{@_} } my %f = ( 12 => ff( 1,2) , 34 => ff( 3,4) ); dd\%f "
{ 12 => "1 2", 34 => "3 4" }