open (FILES,"files.txt") || die "Could not open file: $! \n";