... i dont want to waste time, when i have peoples to suggest new good things ...

Ahh, the wonderful attitude that pervades SoPW these days. "Why should I bother exerting any effort towards solving this trivial problem when I can get some sucker to do it for me?"

That aside, your problem statement is still vague. Do you want the first file that happens to be returned (remember readdir doesn't guarantee any ordering of directory contets); or the first lexicographically of all matching files in a directory? In either case it's trivial to do (hint: keep a HoA keyed off $File::Find::dir).