Select Code to Download

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

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

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