use strict;
use warnings;

my @array_1 = qw(blorke gromble poomba);
my @array_2 = qw(snork dumble gronke);
my (@array_3);

foreach (@array_1){
	push @array_3, $_, shift(@array_2);
}

foreach (@array_3){
	print "$_\n";
}