my @foobar= map { ($bar[$_],$foo[$_]) } 0..$#bar;

##</code><code>##

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