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