delete($TIED_HASH{$key});

##</code><code>##

 
tie %ARCHIVE, "AnyDBM_File", "$db_file",  O_RDWR|O_CREAT, $file_chmod or $warning = 1;

my %copy = %ARCHIVE; 

untie %ARCHIVE; 

delete($copy{$key}); 


tie %ARCHIVE, "AnyDBM_File", "$db_file",  O_RDWR|O_CREAT, $file_chmod or $warning = 1;

%ARCHIVE = %copy; 

untie %ARCHIVE;