#!/usr/local/bin/perl
sub myMult {
	my @arglist=@_;
	my $result=1;
	foreach my $i (@arglist) 
	{
		$result*=$i;
	}
	return ($result);
}

print "2 * 3 * 4 * 5 * 6 = " . myMult(2,3,4,5,6) . "\n";
