use Util::Stuff; my @names = **get_package_names(Util::Stuff)** foreach my $name (@names) { push @temp, $name->flag;' }