use strict;
use warnings;

my @lines = <DATA>;
chomp @lines;

my $saw = {};
$saw->{$_}++ foreach @lines;

print "$saw->{$_} = $_\n" foreach sort keys %$saw;

__DATA__
a
b
va
sdf
b
a
v
b
n
a
h

##</code><code>##

3 = a
3 = b
1 = h
1 = n
1 = sdf
1 = v
1 = va