#!/usr/bin/perl -n

# duplicates - print lines appearing more than once

chomp;
$h{$_}++;

END{
	while ( ($k, $v) = each %h ) {
		print "$v times $k\n\n" if $v > 1
	}
}