#!/usr/bin/perl

use strict;
use warnings;
use Number::Format qw(round);

my $total = 1000;
my $counter = 3;
my $average = ($total/$counter);

print "Average ", round($average);