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