Select Code to Download

use strict;
use warnings;
...

print "array 2:\n";
print "$_\n" for @array2;

array 1:
1
...
3
4
5