if (m/zaps/i) {
        @zapschool = split (/\t/);
        print NEWFILE "$zapschool[4]\n";        
    }