my $x = \1;
print $x, "\n";