foreach my $intersect_file(@intersect_keys) { my $exec = $system_file_data{$intersect_file}; my @values = ref $exec ? @$exec : ($exec); print "$_\n" for @values; }