Select Code to Download

my @fields = qw(a b c);
my @input = qw( 5.5 3.2 15.0 -22 .02 .15);
...
}

printf "%.1f\t%.1f\t%.1f\n", $hash{a}{1}, $hash{b}{1}, $hash{c}{1};