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

##</code><code>##

use strict;
no strict 'refs'
print {select()} 6;