diff --git a/lib/Sidef/Deparse/Perl.pm b/lib/Sidef/Deparse/Perl.pm
index 0b1e1a1d..b325a65d 100644
--- a/lib/Sidef/Deparse/Perl.pm
+++ b/lib/Sidef/Deparse/Perl.pm
@@ -504,7 +504,7 @@ HEADER
     sub _dump_array {
         my ($self, $ref, $array) = @_;
         $self->load_mod($ref);
-        'bless([' . join(',', map { $self->deparse_expr(ref($_) eq 'HASH' ? $_ : {self => $_}) } @{$array}) . "], '${ref}')";
+        'bless([' . join(',', grep { $_ ne '' } map { $self->deparse_expr(ref($_) eq 'HASH' ? $_ : {self => $_}) } @{$array}) . "], '${ref}')";
     }
 
     sub _dump_indices {