Select Code to Download

# Abuse the symbol table.  This does not work under strict.
sub a1 {
...
  $c{a} = 'a';
  %$ref = %c;
}

# "Arrow" notation.
sub a3 {
...
sub a4 {
  (shift)->{a} = 'a';
}