for (_@_D_A_T_A) { $count{$_}++; } for (sort keys %count) { printf "%_Ns %d\n", $_, $count{$_}; }