use strict;
use warnings;

open(my $fh, "<", "input.txt") 
   or die "cannot open < input.txt: $!";

my %duplicates;
while (my $line = <$fh>) {
    chomp $line;
    ++$duplicates{$line};
}