my @numbers = (2, 3, 4, 5);
my $total=1;
$total *= $_ for @numbers;
print "$total\n";