よくわからんけど。

二つでいいならハッシュにしたり。

それ以上の複数なら
for(my $count = 0; $count < ?? ; $count++){
$a[$count], $b[$count], $c[$count];
}
とか？

mapは無理だけど、自分でそんな関数は作れる。

sub (&\@\@){
my $code = shift;
my $a = shift; #ん？大丈夫かこれ？？
my $b = shift;
@a = @$a;
@b = @$b;
for(なんたらかんたら;略;略){　#使用の詳細が不明なので略
　　略;
}
}

みたいなイメージで。