#!/usr/bin/perl

use strict;
use warnings;

my $sum  = 0;
my @nums = ();
push( @nums, ( 4, 8 ) );
$sum += $_ for @nums;
my $size    = @nums;
my $average = $sum / $size;
print "$average";