my @names = ('a'..'zz');

##</code><code>##

my $name = 'a';
for my $file_in (@files) {
    rename $file_in, $name;
    $name++;
}

##</code><code>##

for my $file_in (@files) {
    rename $file_in, "$directory/$name";
    $name++;
}