perl -nwae 'next unless /^sqrt/;print if $F[5]<2*$F[1]'