メモリを消費するけど重複排除されない perl ワンライナー

メモリをひたすら消費したいというシチュエーションで メモリをがんがん消費する Perl ワンライナー を発見。ただ ESXi がメモリを重複排除しちゃう可能性があるので、そういう可能性が低そうな形にアレンジしました。

perl -e '$hn=`hostname`; while(1){$i++;$h{$i}=$i . " $hn" . 'x'x4000 }'