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;

##</code><code>##

Uranus
''
Pluto

##</code><code>##

Uranus
Pluto

##</code><code>##

use strict;
use warnings;
use Text::Table;
my $tb = Text::Table->new(
        "Planet\n---------"     #header
        );

my @planets = qw('Uranus' E 'Pluto'); # E for empty
printReport(@planets);
sub printReport{
        my @array = @_;
        foreach my $element(@array){
                if($element eq 'E'){
                          next;
                        }else{  #fill the body
                                $tb->load([$element]);
                                }
               #$element eq 'E'? next : $tb->load([$element]);

               #$tb->load([$element]) if (defined $element and length $element);
                }
        };
        
print $tb;