for( qw/ one one three two one / ) {
    print +{qw/ one 1 two 2 three 3 /}->{$_}, $/;
}
__output__

1
1
3
2
1