use strict;
use warnings;
use Text::Table;
my $tb = Text::Table->new(
        "Planet\n---------"     #header 
        );
        
my @planets = qw('Uranus' '' 'Pluto');
printReport(@planets);
sub printReport{
        my @array = @_;
        foreach my $element(@array){
                if(!$element){
                          next;
                        } else{  #fill the body
                                $tb->load([$element]);
                                }
                }
        };
print $tb;