That's pretty much how it's done. It can look like less work with *= and modifier notation, but that's just sugar,

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

It's possible to do an elegant recursive implementation, but it costs in performance.