Ich sehe da keinen Fehler. Zeig doch mal den Code, mit dem das Array dann ausgegeben wird.

Spuki+2007-08-08 17:05:37--

Code (perl): (dl )

    push(@pathnames, "$File::Find::name"."/") if (-d);

Die Gänsefüßchen um $File::Find::name sind übrigens überflüssig.