Select Code to Download

my %total_for;

my $operator = 'Nicole';
$total_for{$operator} = 123;  # total for Nicole is 123
$total_for{$operator} += 45;  # increase Nicole's total by 45.

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

open(LOG, $file) or die "Can't read '$file': $!";

while (<LOG>) {
    @tmpwords = split;
    # etc.
}

foreach my $blah ( @array ) {
    # use $blah instead of $_ for things
}

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