Select Code to Download

#!/usr/bin/perl

...
print "@$_\n" for @result;
print "\nValues \@result_2\n";
print "@$_\n" for @result_2;

Line_1:Line_1_1:Line_1_2:Line_1_3:Line_1_4
Line_2:Line_2_1:Line_2_2:Line_2_3:Line_2_4

Line_3:Line_3_1:Line_3_2:Line_3_3:Line_3_4

Line_4:Line_4_1:Line_4_2:Line_4_3:Line_4_4
Line_5:Line_5_1:Line_5_2:Line_6_3:Line_5_4
Line_6:Line_6_1:Line_6_2:Line_6_3:Line_6_4
Line_7:Line_7_1:Line_7_2:Line_7_3:Line_7_4

Values @result
Line_1_3 Line_3_3 Line_4_3
...
Line_2_3 Line_5_3
Line_6_3
Line_7_3

push (@value , $result[3]);

...

# Important to empty the array for the next file!
@array = ();

#!/usr/bin/perl

...
my @result_2 = &second(@ARGV);

print Dumper(@result_2);