The expected structure doesn't make any sense, have you tried to populate a hash by it and use Data::Dumper to visualise it? 
Odd number of elements in hash assignment at ...line 29.
$VAR1 = {
          'HASH(0x563b633597c8)' => undef,
          'RED' => {
                     'PRICE' => 0,
                     'CODE' => 'code value 1',
                     'LABEL' => 'RED'
                   },
          'HASH(0x563b63359750)' => 'BLUE'
        };

[download]
You can't assing two values to a single key.

If you want to assign an array reference to each key, though, it's doable: 

#!/usr/bin/perl
use warnings;
use strict;

use Test::More;

my %in = ( 1 => { PRICE => 0,
                  CODE  => 'code value 1',
                  LABEL => 'RED' },
           2 => { PRICE => 0,
                  CODE  => 'code value 2',
                  LABEL => 'RED' },
           3 => { PRICE => 1,
                  CODE  => 'code value 3',
                  LABEL => 'BLUE' } );
my %out;
push @{ $out{ $_->{LABEL} } }, $_ for values %in;

is_deeply \%out, {
    RED  => [
        { PRICE => 0,
          CODE  => 'code value 1',
          LABEL => 'RED' },
        { PRICE => 0,
          CODE  => 'code value 2',
          LABEL => 'RED',} ],
    BLUE => [ {
        PRICE => 1,
        CODE  => 'code value 3',
        LABEL => 'BLUE',
    } ],
}, 'same';

[download]
map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]

In reply to Re: hash array question by choroba
in thread hash array question by Tony23

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.