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

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