#!/usr/bin/perl
use warnings;
use strict;

foreach my $file('a'..'z'){
   system("sort -u letters/$file > letters/$file.txt");
}
__END__