sub getxml($) {
      my $hashref = shift;
      foreach my $key ( keys %${hashref} ){
          print $key->{'ProductName'}
          print $key->{'ProductCode'}
          print $key->{'Publisher'}
      ...xml logic...
      }