Zunächst mal ein $var1 und $var2 undef. Dann öffnest du liste.csv zum Schreiben (löscht also den Gesamtinhalt) und versuchst dann mit while(<FH>) daraus zu lesen. Das kann nicht gehen.

Anmerkungen:
- benutze lexikalische Dateihandles und die 3-Parameter-Open-Funktion
- dein open hat kein Fehler-Checking (füge or die $! hinzu)
- warum printf statt print?
- kein Newline am Zeilenende?