Select Code to Download

@array = ('x', 'x', 'y', 'z', 'z', 'z');
my %items;
...

use Data::Dumper;
print Dumper \%items;

$VAR1 = {
          'x' => [
...
                   5
                 ]
        };