Select Code to Download

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

$VAR1 = {
          '6' => 12,
          '3' => 6,
...
          '10' => 20,
          '5' => 10
        };