perl -Mstrict -M-strict=refs -e "print {select()} 6"
6