sub mksref { my $x = +(@_)[-1]; \$x }