...
my @Zeilen = <DATEI>;
...
    $path1 = $Zeilen[3];
...
mkdir($path1,0777);