use mapcar; # This is on a node [tye] posted somewhere on PM

my @temp_arr = mapcar { \@_ } (\@a, \@b);
foreach my $vals (@temp_arr) {
    # Do stuff with $vals->[0] (from @a) and $vals->[1] (from @b)
}