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