Something like this should work if I've read your question correctly:

my @results = ();
my @first = (1, 2, 3, 4, 5);
my @second = (1, 2, 3, 4, 5);

for (0..$#first) {
    $results[$_] = $first[$_] * $second[$_];
}

print @results, "\n";
[download]