An fileparse dürfte es nicht liegen, da File::Basename schon so geschrieben ist, dass es sowohl mit Unix als auch Windows umgehen kann.

Lass Dir doch zwischendrin mal die Ergebnisse ausgeben. Zum Beipsile mal mit Data::Dumper das @files-Array.