


my @a = (0.1, 0.2, 0.3, 0.4, 0.5);
my @b = (0.4, 0.2, 0.1, 0.5, 0.3);

print "@a\n";
print "@b\n";


for(my $i=0; $i<5; $i++){
	my $c = $a[$i] + $b[$i];
	my $d = $a[$i] * $b[$i];

	print "$c\t$d\n";
	#print "$d\n";

}


