Data Type Perl

$variable1 = 5;
$scalarref = \$variable1;
print (ref $scalarref);