foreach my $operator ( sort keys %total_for ) {
    print "Total for $operator: $total_for{$operator}\n";
}