Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
my @bar = ( 2 , 4 , 6 , 8 );

print STDOUT my @baz = map { ( $_ , shift @bar ) } @foo;
  2. or download this
    [ ... stuff ... ]
my @baz = map { ( $_ , shift @bar ) } @foo;

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