use mapcar;
my @foobar= mapcar { @_ } \@bar, \@foo;