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

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

##</code><code>##

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