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

##</code><code>##

for my $n (@nra) {
    my $fmt=$n;
    if($n>0.001){
                    ?????  
                }
     else
                {
                     ??????
                }
     printf qq{$fmt \n}, $n;
    }