sub Average { 
my $list = shift ; 
$sum += $_ while (<@$list>); 
my $average = ($sum/@$list); 
return $average; 
}

use strict; 
use warnings; 
 
$\ = "\n"; 
 
sub Average { 
    my $sum = 0; 
 
    foreach my $num (@_) { 
        $sum += $num; 
    } 
 
    return $sum/@_; 
} 
 
print Average(1, 2, 3); 
 
--output:-- 
2

use strict;    
use warnings; 
use List::Util qw(sum); 
 
sub avg { 
    return sum(@_)/@_; 
}