Select Code to Download

sub a1 {
  local *c = shift;
  $c{a} = 'a';
}

sub f {
  use vars qw(%d);
  local *d = shift;
  $d{f}='f';
}

sub f {
  our %d;
  local *d = shift;
  $d{f}='f';
}