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