$evilhash{$id} = {
                 red   => '1',
                 blue  => '2',
                 green => '3',
};

@colors = qw(red blue green);