ESPer, why did you go with

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

instead of simply

               delete $filenames{$filename};
[download]

and just not worry about the cases where the $filename wasn't one of the ones that you're interested in? keys has to build a list, then that has to be traversed, and each value compared. I could understand

            if ( exists $filenames{$filename} ) {
                delete $filenames{$filename};
            }
[download]

especially if there is a chance that %filenames is tied to something big and slow. Is there something that I overlooked?

- doug