Your method is fine. Here's another solution which is quite similar to yours, except that it use a "modifier" type for loop and the *= operator.

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