#!/usr/bin/env perl 
use strict;
use warnings;
use Data::Dumper;

my @array = (
    ['X1','X2','X3','X4' ],
    ['','foo','',''],
    ['','bar','',''],
    ['',rat','',''],
    ['me','','','']
);

##Some processing on @array
@array=???

my $qt = HTML::QuickTable->new();
$qt->render(\@array);

Output should be:
X1 X2 X3 X4
me foo
   bar
   rat

Currently it is:
X1 X2 X3 X4
   foo
   bar
   rat
me