foreach my $x (@A1)
{
    foreach my $y (@A2) 
    {
        if ($A1[0] eq $A2[0]) # Bla1
        {
            if ($A1[1] eq $A2[1]) # für Bla2
            {
               
 print"\nIm $A1[0]: \n";
               
 print "\ngemeinsame Bla2    :    1. $A1[1]    2. $A2[1]\n";
               
 $x++;
            }
            else
            {
               
 print "\nBla2 nicht gleich: $A1[1]  $A2[1]\n";
               
 $y++;
            }
            
            if ($A1[2] eq $A2[2]) # für Bla3
            {
               
 print "gemeinsame Bla3    :    1. $A1[2]        2. $A2[2]\n";
               
 $x++;
            }
            else
            {
               
 print "\nBla3 nicht gleich $A1[2] $A2[2]\n";
               
 $y++;
            }
            
            if ($A1[3] eq $A2[3]) # für Bla4
            {
               
 print "gemeinsame Bla4    :    1. $A1[3]    2. $A2[3]\n";
               
 $x++;
            }
            else
            {
               
 print "\nBla4 nicht gleich $A1[3]  $A2[3]\n";
               
 $y++;
            }
            
            if ($A1[4] eq $A2[4]) # für Bla5
            {
               
 print "gemeinsame Bla5    :    1. $A1[4]    2. $eA2[4]\n";
    
            }
            else
            {
               
 print "\nBla5 nicht gleich  $A1[4] $A2[4]\n";
    
            }
        }
        
    }
}