my $i=1;
my $x;
while (1)
{
    print $i, "\n";
    $x = 'x' x ($i*1024*1024);
    $i += 10;
}