In $pfad hast du deinen Dateipfad, und da möchtest du jetzt den Namen des übergeordneten Ordners herausholen - das habe ich hoffentlich richtig verstanden. Das kannst du mit split(/\//, $pfad); erreichen, falls du nicht \ als Trennzeichen in $pfad hast (das kann bei Windows passieren, je nachdem, wo du den Pfad herhast). Im letzten Element (Index -1) des Ergebnisses steht der Dateiname, bei Index -2 der gesuchte Name.

Übrigens kopiert man Dateien nicht zeilenweise. Dafür gibt es das Modul File::Copy.