my %exts;
@exts{@exts} = ();

sub wanted {
	if (/\.(\w+)/) {
		print "$File::Find::dir/$hold\n" if
			exists $exts{lc($1)};
	}
}