Linux/メモリ負荷 わざと負荷をかける

#!/usr/bin/perl 
# membusy.pl

my @a; for (1..99999) { my $v ="hoge" x 9999 ; push @a,$v; sleep 0.5}