Besides the previously mentioned List::Util::reduce method, there's:

@numbers = (1..5);
print product(@numbers),"\n";

sub product {
  my $result = shift;
  $result *= $_ for @_;
  $result;
}
[download]