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" );

my @join;

for my $elem ( @array1 ){
    push @join, "$elem " . shift @array2; 
}

print "$_\n" for @join;

##</code><code>##

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

##</code><code>##

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