print ${+do{@{$_={}}{1..3}=qw[one two three];$_}}{2};