for (_@_D_A_T_A) {
    $count{$_}++;
}
for (sort keys %count) {
    printf "%_Ns %d\n", $_, $count{$_};
}
