Select Code to Download

#use warnings;

my $count = 0;

my ($el1,$el2,$output,$input);
my (@data,@file2_data,@array_2,@data_1,@array_4,@data_4,@array_5,@arra
+y_6,@data_7,@array_8);
...
my ($marc_data,$marc_add,$V_output,$join_1,$join_2,$join_3,$join_4);
my ($data,$address,$stage_output,$element2,$marc_data_1,$marc_add_1,$j
+oin_for_2nd_stage);
my ($element_4,$file3_data,$file3_add,$dataout,$marc_array,$file3_data
+_1,$file3_add_1,$dataout_1,$marc_array_1,$join_1st_stage_file2_file3,
+$nothing,$nothing_1,$nothing_2,$nothing_3,$dataout_final,$marc_array_
+final);

open my $fh2, '<', $file2 or die "Can't open $file2: $!"; #XX.file2 fi
+le
open my $fh3, '<', $file3 or die "Can't open $file3: $!"; #xx.file3 fi
+le
...
...
open my $fh6, '<', $file3 or die "Can't open $file2: $!"; #XX.file2 fi
+le
my @array_7 = <$fh6>;

              $join_1 = join (" ", ("$input_1","$V_output","$marc_data
+","$marc_add","$stage_1"));
...
...
    $final_join = join (" ",("$input_2","$output_2","$data","$address"
+,"$stage_output_1","$file3_data","$file3_add","$dataout","$marc_array
+","$nothing","$nothing_1","$dataout_final","$marc_array_final"));
...
    $final_join = join (" ",("$input_2","$output_2","$data","$address"
+,"$stage_output_1","$file3_data","$file3_add","$dataout","$marc_array
+","$nothing","$nothing_1","$dataout_final","$marc_array_final"));

#!/usr/bin/perl
use strict;
...
HEADER
printf $fh4 "%-25s %12s %4s %6s %-30s %30s %2s %4s %20s %20s\n", ( spl
+it )[ 0 .. 3, 7 .. 12 ] for @array_6;