use strict;
use warnings;

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

my %duplicates;
while (my $line = <$fh>) {
       chomp $line;
       my ($fname, $fext) = split(' ',$line);
       $duplicates{$fname}{$fext}++;
}