H:\devperl\perlmonks>scoping-assign.pl
#1==perl==java==
#2==perl==java==
#3==blah== ava==
#4======
#5==00617661