use strict;
use warnings;

my %data;

while (<DATA>)
{
    chomp;
    next unless $_;
    
    $data{$_}++;
}

for ( keys %data )
{
    print "$data{$_} : $_\n";
}