my @files = ... get list of files to process ...;
for my $file (@files) {
   ... process a file ...
   ... delete a file ...
}