@A=([a1v1,a1v2,a1v3,a1v4],
 [a2v1,a2v2,a2v3,a2v4],
  [a3v1,a3v2,a3v3,a3v4]);

@names=("f1","f2","f3","f4");

 for (my $x = 0; $x <= $#A; $x++)
 {
    for (my $y = 0; $y < 4; $y++)
    {
     print $names[$y]. ": " . $A[$x][$y ] . "\n";
                                        }
   print "\n";                                     }