C:\test>p1
Perl> #5.6MB ;;
Perl> $h{ "$_ " x 3} = "$_ " x 10 for 1e6 .. 2e6;;
Perl> # 299MB ;;

##</code><code>##

C:\test>p1
Perl> # 5.6MB ;;
Perl> $h{ pack 'V3', ($_) x 3} = pack 'V10', ($_) x 10 for 1e6 .. 2e6;;
Perl> # 237MB ;;

##</code><code>##

Perl> $h{ "$_ " x 3} = "$_ " x 10 for 1e6 .. 4e6;;
Perl> # 912MB ;;