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