use strict;
use warnings;

my @foo = ( 1 , 3 , 5 , 7 );
my @bar = ( 2 , 4 , 6 , 8 );

print STDOUT my @baz = map { ( $_ , shift @bar ) } @foo;