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

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