foreach my $key (keys %$xml)
{
        my $inha = $xml->{$key};
        print " $key => $xml->{$key}";
        my $prophash = $xml->{$key}{'Properties'};
        foreach my $k (%$prophash)
        {
                print "$k => $prophash->{$k}";
        }
}