open(my $file1, '<', "input_$i.txt")
    or die "Couldn't read from 'input_$i.txt': $!";
open(my $file2, '>', "output_$i.txt")
    or die "Couldn't write to 'output_$i.txt': $!";