Select Code to Download

my @array1 = ( "1 2 3 4 5", "2 3 4 5 6", "3 4 5 6 7" );
my @array2 = ( "a b c d", "b c d e", "f g h i" );
...
}

print "$_\n" for @join;

1 2 3 4 5 a b c d
2 3 4 5 6 b c d e
3 4 5 6 7 f g h i

open my $fh, '<', 'path to file' or die "Can't open the damned file!: 
+$!";