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