File::Basename hat mir sehr geholfen, danke!

allerdings habe ich das erstellen der csv-datei nun manuell programmiert.