Select Code to Download

$a[ $_*2 ] = $_ for 1 .. 1e5;;
$h{ $_*2 } = $_ for 1 .. 1e5;;
...
print total_size( $_ ) for \( @a, %h );;
69509024
7526431

$a[ $_ * 20 ] = $_ for 1 .. 1e5;;

...
1359141122.04252
1359141123.06596
100000