Select Code to Download

Select or download this
```
foreach (@array_1) {
    chomp $_;
}
```
Select or download this
```
chomp @array_1;
```

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

Select or download this

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

Select or download this

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

Select or download this

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

Select or download this

push @array_2, [ $input_1, $V_output, $marc_data, $marc_add, $stage_1 
+];

...

foreach (@array_2) {
  my ($input_2,$output_2,$data,$address,$stage_output_1) = @$_;