my @hiddenlist = (
     'A', 1,
     'A', 2,
     'A', 3
);
my %lilhash;
while (@hiddenlist)
{
     my $hiddenkey = shift @hiddenlist;
     $lilhash{$hiddenkey} = shift @hiddenlist;
}
print $lilhash{'A'};