You have:

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

But $perl->{Table} returns an array reference, not an array. Instead, do:

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

Now $count should be accurate, and @table should hold hash references (I think).