sub product { my $list = shift; my $prod = 1; foreach my $num (@$list) { $prod *= $num; } return $prod; }