Data Type Perl

$scalar = 1;
${*scalar{SCALAR}} = 5;
print $scalar;