use warnings;
...
foreach (@liste) {
  print "VORHER: $_\n";
  # z.B. Datei oeffnen
  while (<FH>) {
    print "WHILE: $_";
  }
  print "Nachher: $_\n";
}
print "$_\n";