Select Code to Download

my @ratio = map { sprintf '%.4f', $numerator[$_]/$denominator[$_] } 3.
+.8;
my $variable1 = join "\t", @ratio;