C:\Scripts>perl scope.pl
Top before ARRAY(0x183f218) [a,b]
  Before ARRAY(0x183f218) [a,b]
  After ARRAY(0x183f248) []
Top After ARRAY(0x183f218) [a,b]