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