$ perl -MO=Deparse -e 'my %foo = map( $_ => 2*$_, 1..10 );'
my(%foo) = map($_, 2 * $_, 1..10);