my %hash;
@hash{ qw/ one two three / } = ( 1..3 );

##</code><code>##

$someval = ${@hash{ qw/ one two three / } = ( 1..3 )}{two};