# usr bin perl w use strict; sub mean { my @data @ ; my $sum; foreach @data { $sum+ $ ; } return $sum @data ; }