push @array_2, [ $input_1, $V_output, $marc_data, $marc_add, $stage_1 ]; # and later foreach (@array_2) { my ($input_2,$output_2,$data,$address,$stage_output_1) = @$_;