Rotina para renomear automaticamente arquivos

#!/usr/bin/env perl# Definindo variáveis
use strict;
use warnings;


my (@separado, @listaErros);
my $linhaAtual = 0;


# Rotina para renomear
open(my $arq,'num2cardillustnametable.txt');
    while(<$arq>)
    {
    $linhaAtual++;
        chomp;
        if ($_ ne "") {
            @separado = split(/#/);
            $separado[0] = $separado[0] . '.bmp';
            $separado[1] = $separado[1] . '.bmp';
            if (-e $separado[1]) {
                rename ($separado[1], $separado[0]);
                print "[+] $linhaAtual: $separado[1] renomeado para $separado[0]\n";
            } else {
                print "[!] $linhaAtual: Não foi encontrado o $separado[1]!\n";
                push (@listaErros, "[!] $linhaAtual: Não foi renomeado o $separado[1] para $separado[0]\n");
            }
        }
    };


# Finalizando rotina
print "\n\n";
close($arq);
    if (@listaErros == 0) {
        print "[-] Renomeação concluída com sucesso!\n";
    } else {
        print "[-] Renomeação terminou com os seguintes problemas:\n";
        print @listaErros;
    }
print "\n\n";
system('pause');