This is jus a snippet of my script;

my @tables;
foreach my $modulenames ( @avail )  {
my $object = "Project::$modulenames";
use $object;
my $objvalue = $object->table_name();
push (@tables, $objvalue);
}
print "@tables";