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