map  {printf INFILE "%-50s %10.3f %10.3f %10.5f\n" => @$_} 
    sort { $a -> [3] <=> $b -> [3]}
    map  {[$_, $x {$_}, $y {$_}, $x {$_} / $y {$_}]}
    grep { $y {$_} > 0} keys %x;