#!/usr/bin/perl
# invoice.pl

$file = 'msgcount.txt';
open(LOG, $file);

#Store the file in an array, split by newlines
while (<LOG>){
       $string .= $_;
       }

@array = split(/\n/, $string);

#Loop through the array
foreach (@array) {

#Split the lines up into words for easy referencing
@tmpwords = split(/ /);
#If the operator name is not already in the array, add it.
unless (grep /@tmpwords[1]/, @operators) {
push (@operators, @tmpwords[1]);
}

foreach (@operators) {
if (@tmpwords[1] eq $_) {
$tmptotal = $tmptotal+@tmpwords[2];
}
push (@totals, $tmptotal);
}
}
print "@totals[1]\n";