Select Code to Download

use Data::Dumper;

...
delete $a[1];
#splice(@a, 1,1);
print Dumper(\@a);

$VAR1 = [
          1,
...
          4,
          5
        ];

$VAR1 = [
          1,
...
          4,
          5
        ];