foreach $item (@data) {
    $members{$item}++;
}
foreach $item (keys %members) {
    print "$item : $members{$item}";
}