in reply to Reaped: Rounding numbers

You could use sprintf: 
my $average = sprintf "%.2f",($total/$counter);

[download]

In Section Seekers of Perl Wisdom