If you need to allocate huge scalars, do it this way instead:

my $x = 'A'; $x x= 1024**3;
[download]

And you'll use just the gigabyte plus whatever you already had.

Also, it happens about 3 times faster even if your original didn't move you into swapping. And many times faster if it did.