sub MemoryEaterFunc_FIXED
{
  my $A = '';
  vec($A, 20000000, 8) = 0;   # Create a large string
  $A .= $_[0];                # Add to it. Do something.
  undef $A;
}