Select Code to Download

use XML::Simple;
$xml = new XML::Simple( ForceArray => [qw( product color )]);
...
    print "  Cost: " . $products->{cost} . "\n";
    print "Colors: " . (join ", ", @{$products->{color}})."\n\n";
}

<shelf>
    <product>
...
        <color>white</color>
    </product>
</shelf>

Widget: widget1
Rating: B
...
Rating: S
  Cost: 0.50
Colors: