D:\PerlMonks>scope1-fail.pl
 Inside:  test1 = [1]  test2 = [2]
Outside:  test1 = [1]  test2 = []

D:\PerlMonks>