sub le {
    my $nomeArq = $_[0];    # recebe com parāmetro o nome do arquivo.
    my @arrayArq;
    my $linha;
    my $num = 0;
    open (ARQ, "< $nomeArq") or die "Erro ao abrir o arquivo: $nomeArq: $!"; # Abre o arquivo ou mata o processo com uma mensagem de erro.
    while ($linha = <ARQ>) {  # Varre todas as linhas do arquivo.
    	  $arrayArq[$num] = $linha;  # Insere linha no array.
          $num++;
    }
    close ARQ;   # Fecha o Arquivo
    return @arrayArq;
}