Select Code to Download

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

   open my $data, ...

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

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

use Fatal qw( open );