foreach (@array_1) {
    chomp $_;
}

##</code><code>##

chomp @array_1;

##</code><code>##

foreach my $element(@array_1) {
  if ($element !~ /^\s*$/) {
    if (($element =~ m/$output/) && ($element =~ m/$input/)) { #print out all the matching output lines

##</code><code>##

foreach my $element (grep { /$output/ && /$input/ } @array_1) {

##</code><code>##

$join_1 = join (" ", "$input_1","$V_output","$marc_data","$marc_add","$stage_1"));
push (@array_2,$join_1);

##</code><code>##

push @array_2,  "$input_1 $V_output $marc_data $marc_add $stage_1";

##</code><code>##

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) = @$_;