if ($line =~ m/(.*)\s+(.*)\s+(.*)\s+(.*)\s+(.*)\s+(.*)\s+(
+.*)\s+(.*)\s+(.*)\s+(.*)\s+(.*)\s+(.*)\s+(.*)/) {
    
    
            if ($line !~ m/\((sa)\)/) {
    
                @arr1 = @emp;
                next if ($line =~ m/Name/);
                        $name1 = "$1";
                $score1 = "$12";