What about this what do you think?

#!/usr/bin/perl -w

use strict;
use Data::Dumper;
use YAML;

...
# from your code you do what was mentioned here:
push @data, $tree;
}  # end of your foreach

for my $record (@data) {
     my $cities = "$record->{'xml_api_reply'}{'weather'}{'forecast_inf
+ormation'}{'city'}->{'-data'}";
  print "$cities\n";
}
[download]

Let us know, thanks!