my @files=qw(file1 file2) ; #or however you get your filenames
foreach my $filename (@files) {
    #do something with the file
    print "$filename \n";

}