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