c:\@Work\Perl\monks>perl -wMstrict -le
"BEGIN {
   my @ra = (1, 2, 3);
   ;;
   sub S_doit { foreach my $n (@ra) { print $n; } }
   }
 ;;
 S_doit();
"
1
2
3