my %h = (one=>2,three=>4,five=>6,seven=>8,nine=>0);
print "$_\n" for (@h{qw/five nine one seven three/})'

##</code><code>##

6
0
2
8
4

##</code><code>##

my %h = (one=>2,three=>4,five=>6,seven=>8,nine=>0);
print "$_ => $h{$_}\n" for (qw/five nine one seven three/);

##</code><code>##

five => 6
nine => 0
one => 2
seven => 8
three => 4