Select Code to Download

my @e1 = (2, 3.23, 7, 9, 11.3479);
my @e2 = (3.3333, 1.433, 8.0577, 9.7344, 13.3377);
...
$sum += $e2[$_]/$e1[$_] for 0..$#e1;
my $f = $sum / @e1;
say "average scaling factor: $f";