For traversing arrays in parallel, see Algorithm::Loops 'MapCar'.

use Algorithm::Loops 'MapCar';

my @aoa= map { my $a=$_; [map "A${a}V$_", 0..3] } 0..2;
my @labels = ("f1","f2","f3","f4");

for my $rec (@aoa) {
  print MapCar(sub{"$_[0]: $_[1]\n"}, \@labels, $rec);
}
[download]