visto che non mi sentivo di tornare in questa lista senza un pezzo di codice, ma non ho trovato algoritmi differenti da quelli suggeriti da marco (ciao!) vi propongo almeno una variante di stile:
@_ = `ps aux`; shift;
map { ($_) = split; $c{$_}++; } @_;
map { print "$_ $c{$_}n"; } sort {$c{$b} <=> $c{$a}} keys %c
ciao a tutti!
Oha