Select Code to Download

package Tie::Hash::MultiVal;

...
}

1;

use strict; 
use warnings;
...

delete $hash{foo};
print Dumper \%hash;