Select Code to Download

use Modern::Perl;
use Data::Dumper;
...

say 'After:';
say Dumper \@array;

Before:
$VAR1 = [
...
          '4',
          '5'
        ];