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