c:\@Work\Perl\monks>perl -wMstrict -le
"S('before');
 ;;
 my @ra = qw(A C T G);
 ;;
 S('after');
 ;;
 sub S { print qq{$_[0] initialization: [@ra] }; }
"
before initialization: []
after initialization: [A C T G]