use strict;

my @list = (1,2,3,4,5);
my $result = 1;

map {$result *= $_} @list;

print $result;