use strict;
use warnings;
use Readonly;
Readonly::Scalar my $COLOR => 1;
my %hash = (
    ef56 => [],
);
push @{ $hash{"ef56"} }, 2.6, "red", 4;

print "The color of Item ef56 is $hash{'ef56'}[$COLOR]\n";