for (keys %filenames) {
                delete $filenames{$_} if $filename eq $_;
            }

##</code><code>##

               delete $filenames{$filename};

##</code><code>##

            if ( exists $filenames{$filename} ) {
                delete $filenames{$filename};
            }