Help for this page
for (keys %filenames) { delete $filenames{$_} if $filename eq $_; }
delete $filenames{$filename};
if ( exists $filenames{$filename} ) { delete $filenames{$filename}; }