Select Code to Download

#!/usr/bin/perl -w
use strict;
...
      " COLORS:",
      map ( { $_->{content} ." "} @{ $xmlData->{size}->{color_swatch} 
+} ),
      "\n";

$VAR1 = \{
            'item_number' => 'QWZ5671',
...
                    }
          };
ITEM NUMBER: QWZ5671 COLORS:Red Burgundy