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