Nur für die Notizen:

Dann mache aus dem my $file; ein my $current_file;, aus foreach $file (@filelist) ein foreach my $file (@filelist) und in der Schleife dann noch $current_file = $file;

Aber

Globale Variablen sollte man sowieso vermeiden und mit Übergabeparametern arbeiten. Also möglichst viele Variablendeklarationen am Anfang des Skripts rausschmeißen und den Gültigkeitsbereich der Variablen möglichst klein halten.

Wie Du die Übergabeparameter ausliest weißt Du ja schon (my ($p1,$p2) = @_).