You probably don't want to run File::Find for every one of your 2000 or so parts. Use it to preload your directory information into some kind of hash structure, then check each part against that structure rather than doing to disk every time.

Update: duh moment...I'm sure BUU wasn't thinking of running File::Find every time; you just check your hash of part numbers in the 'wanted' subroutine of File::Find, which just gets run once.