Select Code to Download

use Data::Dumper;
@arr = (1,2,3);
...
  # not doing or changing anything here.
}
print Dumper(\@arr);