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