Your question is a bit confusing, but from what I understand you want to use keys:

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