Or you could just not use a hash slice

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

1
1
3
2
1
[download]

Or if you've got Language::Functional handy you could do this

use Language::Functional 'zip';

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

__output__

1
1
3
2
1
[download]

Not quite as tidy as the first example, but it's closer to a hash slice.
HTH

_________
broquaint