for my $name (@data_names) { # open files here }