For a quick and dirty way, I like to do stuff like:

sub product {
    my $list = shift;
    local $" = "*";
   `echo '@$list' | bc`
}
[download]

Abigail