There may be more efficient ways of doing it, but one way is:
my (@list, $sum, $count, $avg);
while (<>) {
@list = split /::-::/;
$count = scalar @list;
$sum = 0;
foreach (@list) {
$sum += $_;
}
print "$count entries, average = ", $sum / $count, "\n";
}...