while( my ($schl, $wert) = each %hash ) {
    print "$schl => $wert\n";
}