Select Code to Download

#!/bin/perl
use strict;
...
    ++$Items{$coupled};
    print "$coupled: $Items{$coupled}\n";
}

       - prices - : 1
     - quantities - : 1
...
     - sellingpoints -  => 2
   - item -  => 2
 - Catalog -  => 1