foreach $key (keys %hash) {
        delete ( $hash {$key} );
	}