my %hash = ( one => 1, two => 2, three => 3 );

print $hash{$_} foreach qw/ one two three /;