my $d = *{ 'main::destination::' };
    delete $d->{foo};