$buffer = 'x' x 10000000;
# memory used 12,200kb

*x = \$buffer;
# mem used 12.200kb

print length $x;
10000000

print substr $x, 0, 30;
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx