zipWith {[$_[0], $_[1]]} @foo, @bar;
# or:
zipWith {($a,$b)=@_;[$a,$b]} @foo, @bar;
# or:
zipWith {[unshift,unshift]} @foo, @bar;