c:\@Work\Perl\monks>perl -wMstrict -le
"sub Sc {
   my @ra;
   $#ra = 10_000_000;
   return \@ra;
   }
 ;;
 my @save_references;
 for my $i (0 .. 20) {
   $save_references[$i] = Sc();
   }
 sleep 8;
 ;;
 @save_references = ();
 sleep 8;
"