$ perl -le 'my $u; sub u :lvalue {$u} print ref \u'
SCALAR