Data Type Perl

$variable1 = 5;
$reference = \$variable1;
print $reference;