#!/usr/bin/perl
use strict;
use warnings;
use Text::Table;
use List::Util 'max';

my @final = (
          [
            'Line_1_3',
            'Line_2_3'
          ],
          [
            'Line_3_3'
          ],
          [
            'Line_4_3',
            'Line_5_3',
            'Line_6_3',
            'Line_7_3'
          ]
        );



my $max_idx = max map $#$_, @final;

my $tb = Text::Table->new;

for my $i (0 .. $max_idx) {
	$tb->add( map $final[$_][$i], 0 .. $#final);
}
print $tb