foreach my $zeile (sort { $hash{$a} <=> $hash{$b} } keys %hash) {
       ...
    }