my @table = $perl->{Table};
my @newtable = $table[0];
my $count = @newtable;

##</code><code>##

my @table = @{ $perl->{Table} };
my $count = @table;