Select Code to Download

for my $n (@nra) {
   my $fmt = $n > 0.001 ? '%5.2g' : '%5.3g';
   printf qq{$fmt \n}, $n;
   }

for my $n (@nra) {
    my $fmt=$n;
...
                }
     printf qq{$fmt \n}, $n;
    }