Select Code to Download

@b = @a;

@b = (); # temporary internal step
@b = @a;

use Data::Dumper;

...

print Dumper(\@a);
print Dumper(\@b);

$VAR1 = [
          1,
...
          1,
          2
        ];