$files{3} = $input_directory,"3";

##</code><code>##

   open my $data, ...

##</code><code>##

   open my $data, '<', $files{$_} ...

##</code><code>##

   open my $data, '<', $files{$_} or die "open('$files{$_}'): $!";

##</code><code>##

use Fatal qw( open );