count duplicate lines (records)

$count{$_}++ while <>; print "$count{$_} = $_" for sort(keys %count);