use warnings;
use strict;
my @array1 = (3,4,6,5,8);
my @array2 = (2,2,4,5,1);

my $num = scalar @array1;
my @answers;
for (my $x = 0; $x < $num; $x++)
{
        push(@answers, $array1[$x]*$array2[$x]);
}