Data Type Perl

$variable1 = 5;
$variablename = "variable1";
print "$$variablename\n";
print "$variablename\n";