Help for this page

Select Code to Download

Select or download this

@foo = ( 1 , 3 , 5 , 7 );
@bar = ( 2 , 4 , 6 , 8 );
@baz = map { ( $_ , shift @bar ) } @foo;

Select or download this
print STDOUT my @foobar = map { ( $_, shift @foo ) } @bar;