foreach my $schl ( keys(%hash) ) {
    print "$schl => $hash{$schl}\n";
}