$var1 = 1; # ist Abhängig von Dateinhalt der weiter oben eingelesen wurde
if ($var1 == 1) {
   open (FILE, ">datei.txt");
   print FILE "zeile";
   close FILE;
   print "AAA"; # oder $var2 = "AAA";
} else {
   print "BBB"; # oder $var2 = "BBB";
}

# (Ausgabe: BBB)