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