my @dupes = grep $lines{$_} > 1, keys %lines;