perl -e 'print "luku\tlkm\n"; while(<>){ $h{$_}++ for split } print("$k\t$v\n") while ($k, $v)=each %h' lyh | sort -n