$scalar = 1;

${*scalar{SCALAR}} = 5;

print $scalar;