#!/usr/bin/perl

use strict;
use warnings;
use List::Util qw( sum );

my @box = ( 100, 200, 300 );
my $average = (@box) ? (sum (@box) / scalar @box) : 0 ;
print $average, "\n";