use strict;
use warnings;

my $a;
print \$a, "\n";
somesub($a);

sub somesub {
	print \$_[0];
}

##</code><code>##

SCALAR(0x182419c)
SCALAR(0x182419c)