my $tablename =$$tables[$x];
my @{$tablename};