c:\@Work\Perl\monks>perl -wMstrict -le
"sub Sb {
   my @ra;
   $#ra = 100_000_000;
   return \@ra;
   }
 for (0 .. 100) {
   my $arrayref = Sb();
   }
"