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";
}
[download]

Prints:

Acme
Wobbler
Tibble
[download]