Select Code to Download

$a = 1;
$a = 2;
print "\$a is $a\n";
...
$a{key} = 'value';
$a{key} = 'newvalue';
print "\$a{key} = $a{key}\n";