Select Code to Download

$VAR1 = [
          {
...
          },

];

my $test_data = $data[0]{'xml_api_reply'}{'weather'}{'forecast_informa
+tion'}{'city'}->{"-data"};

....
my %hash;
...
}
close $fh;