Select Code to Download

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

use Language::Functional 'zip';

...
3
2
1