Select Code to Download

$evilhash->{1} = {
  red   => 1,
...
my @colors = qw( red blue green );

print join("|", @{$evilhash->{1}}{@colors}), "\n";

$evilhash = {
  '1' => {
...
    'red' => 1
  }
};