opendir DIR, $directory;
@duplicate = map { "$directory/$_" } grep { /\.txt$/ } readdir DIR;
closedir DIR;