foreach my $line (@arr2) {

##</code><code>##

foreach my $line2 (@arr3) {
    foreach my $line1 (@arr1) {
        if ($line1 =~ m/(.*)\s+(.*)\s+(.*)\s+(.*)\s+(.*)\s+(.*)\s+(.*)\s+(.*)/) {
            my $cname1 = "$2";
            if ($cname1 ne $line3) {
                print "$cname1\n"; 
            }
        }
    }
}