...
open my $fh, '<', 'data.txt' 
  or die "can't open config file: $!";

my @config = YAML::LoadFile($fh);
#print Dumper(@config);

 for my $record (@config) {
     my $cities = "$record->{'xml_api_reply'}{'weather'}{'forecast_information'}{'city'}->{'-data'}";
     my $currwind ="$record->{xml_api_reply}->{weather}->{current_conditions}->{wind_condition}->{'-data'}" || '';
     #for my $subrecord (@{$record->{Field2}}) {
         #print "\t$subrecord->{Key} = $subrecord->{Val}\n";
     #}
     print "**$cities*$currwind*\n";
}