$variable1 = 5;
$scalarref = \$variable1;

print (ref $scalarref);