my @a; local $a[0];    # Not a problem
my %a; local $a{k};    # Not a problem