I think you need to chomp $file too.

in any case you need to check for errors from open:

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