use strict;
use warnings;

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

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