my $instances_hash = $data->{'local'}->{'tomcat'}->{'instances'};
my @names = keys %$instances_hash;
for my $name (@names)
{
  print "The name is $name\n";
}