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