Select Code to Download

array-1[0] array-2[0]...array-n[0]
array-1[1] array-2[1]...array-n[1]
...
    .          .     ...    .
    .          .     ...    .
array-1[n] array-2[n]...array-n[n]

array-1 . ' ' . array-2 . ' ' . array-n

#!/usr/bin/perl

...
my $final = &write(@values);

print "\n" . $final . "\n";

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_5_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
Line_8:Line_8_1:Line_8_2:Line_8_3:Line_8_4

$VAR1 = [
          'Line_1_3',
...
          'Line_3_3',
          'Line_4_3'
        ];

$VAR1 = [
          'Line_1_3',
...
          'Line_7_3',
          'Line_8_3'
        ];

#!/usr/bin/perl

...
my $output = &write(@final);

print "\nResult: ".$output."";

$VAR1 = [
          'Line_1_3 Line_5_3',
...
        ];

Result: Successfully writen on output.txt.