my $filename = 'input.txt';
open(my $fh, '<', $filename) or die $!;