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