my @numbers = (2,3,4,5);
my $product = 1;
$product *= $_ for @numbers;
print $product;