while (my $line = <FILES>) {
    # open the file ($line) as DATA
    # manipulate the file
    # close(DATA);
}
close(FILES);