print Dumper ($tmp);

##</code><code>##

$VAR1 = [
          bless( {
                   'Kids' => [
                               bless( {
                                        'Kids' => []
                                      }, 'main::HNO' ),
                               bless( {
                                        'Kids' => [
                                                    bless( {
                                                             'Text' => 'Eagle Way'
                                                           }, 'main::Characters' )
                                                  ]
                                      }, 'main::STN' ),
                               bless( {
                                        'Kids' => [
                                                    bless( {
                                                             'Text' => 'Gotham City'
                                                           }, 'main::Characters' )
                                                  ]
                                      }, 'main::MCN' )
                             ]
                 }, 'main::LOC' )
        ];

##</code><code>##

print $tmp->[0]->{Kids}->[1]->{Kids}->[0]->{Text}, 
      "\n", 
      $tmp->[0]->{Kids}->[2]->{Kids}->[0]->{Text};

##</code><code>##

      
Eagle Way
Gotham City

##</code><code>##

for ( @{$tmp->[0]->{Kids}} )
{
    print $_->{Kids}->[0]->{Text}, "\n";
}