C:\>perl -e "($x,$y)=\qw(a b);print $$y"
b