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