my %hash = ();
my @elemente_beider_arrays = ();
foreach(@A){
  $hash{$_}++;
}
foreach(@B){
  push(@elemente_beider_arrays,$_) if($hash{$_});
}

print "Diese Elemente sind in beiden Arrays:\n";
print $_,"\n" for(@elemente_beider_arrays);