### INIT script
    use strict;
    use warnings;
    use YAML;
    use Data::Dumper;
    my  $dataroot   = YAML::Load(join "", (<DATA>));

    print $dataroot->{person}[0]{fname};
    print "\n------------------\n";

    print $dataroot->{person}[0]{lname};
    print "\n------------------\n";

    print $dataroot->{person}[0]{city}{caption};
    print "\n------------------\n";

    print   Data::Dumper->Dump([$dataroot], [qw(dataroot)]);
    print "\n------------------\n";

1;
__END__
country:
  - &IDxCountryA
    name:       CountryA
    caption:    Country Alpha

  - &IDxCountryB
    name:       CountryB
    caption:    La Cuidad Del B

  - &IDxCountryC
    name:       CountryC
    caption:    United C Emirates

state:
  - &IDxStateWashatovia
    name:       washatovia
    caption:    Washatovia
    country:    *IDxCountryC

  - name:       nervada_dc
    caption:    Nervada D.C.
    country:    *IDxCountryC

city:
  - &IDxCityParisis
    name:       Parisis
    caption:    Parisis

person:
  - fname:      Samir
    lname:      Krishnamurty
    city:       *IDxCityParisis
    state:      *IDxStateWashatovia
    country:    *IDxCountryC