use Functional;
sub prod_list {foldl1(sub {$_[0]*$_[1]},[@_])}

print prod_list(3,2,1,10);