my $b = $a->[1]{BAR};
   undef $a;