DB<123> ; {package TMP; eval 'sub bla {"BLA"}'}

  DB<124> TMP::bla()
 => "BLA"

  DB<125> delete  ${'main::'}{'TMP::'}
 => do {
  my $a = *main::TMP::;
  $a = { bla => *TMP::bla };
  $a;
}

  DB<126> TMP::bla()
Undefined subroutine &TMP::bla called at (eval 72)[multi_perl5db.pl:644] line 2.