use strict;
use warnings;

my %count;
open my $data, "<", "userstab.txt" or die "open: $!";
open my $result, ">", "results.txt" or die "open: $!";
while (<$data>) {
    chomp;
    my $zapschool = (split /\t/)[4];
    $count{$zapschool}++;
    print $result "$zapschool\n" if /zaps/;
}
close $data or die "close: $!";
close $result or die "close: $!";
while (my ($school, $count) = each %count) {
    printf "%s appears %d times\n", $school, $count;
}