my %foo = map( $_ => 2*$_, 1..10 );
use Data::Dumper;
print Dumper(\%foo);