Set up twig handlers for them. Consider:
use strict;
use warnings;
use XML::Twig;
my $xml = <<XML;
<companies>
<Acme>Acme</Acme>
<Missing>Missing</Missing>
<Wobbler>Wobbler</Wobbler>
<Trump>Trump</Trump>
<Tibble>Tibble</Tibble>
</companies>
XML
my @companyList = qw(Acme Wobbler Tibble);
my %handlers = map {$_ => \&HandleCompany} @companyList;
my $twig = XML::Twig->new (twig_handlers => \%handlers);
$twig->parse ($xml);
sub HandleCompany {
print $_->text (), "\n";
}
Prints:
Acme
Wobbler
Tibble
Perl is environmentally friendly - it saves trees