foreach $tarea_que_pueden_entrar (@tareas_aceptadas2) {
    #En $tarea_que_pueden_entrar guardo los elementos del fichero 1 para comparar

    for ($x=0; $x<$numero_de_elementos_en_el_fichero_2; $x++) {

        $comp = $tareas_repetidas2[$x];
        chop($comp);

        #en $comp los elementos del fichero2

        if ($tarea_que_pueden_entrar ne $comp) {
            print("Son Distintos ");
            #aquí no sé qué hacer para que cuando sean distintos
            #salga de este if, del for y se grabe la tarea en el fichero 2
        }
        else {
            print("Son iguales ");
        }
    }
    if (son distintos) {
        print MANEJADOR_FICHERO "$tarea_que_pueden_entrar\n";
    }
    else {
        print("Como son = no se ha copiado \n");
    }
}

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

chdir 'diario';

my @planificacion = do { open PLANI, "<planificacion.txt" or die "$!\n"; <PLANI> };
chomp @planificacion;

my @minuto_de_arranque;
my %scripts_puestos;

for my $linea (@planificacion) {
    my ($minuto, undef, undef, undef, undef, undef, $fichero_script) = split(" ", $linea);
    my (undef, $script) = split("/", $fichero_script, 2);

    $scripts_puestos{$script} = $minuto;
    $minuto_de_arranque[$minuto] = $script;
}

for my $script (<S*>) {
    if (!$scripts_puestos{$script}) {
        $scripts_puestos{$script} = @minuto_de_arranque;
        $minuto_de_arranque[@minuto_de_arranque] = $script;
    }
}

for my $minuto (1 .. $#minuto_de_arranque) {
    next if !$minuto_de_arranque[$minuto];
    print join " ", $minuto, 12, 30, ('*')x3, "diario/$minuto_de_arranque[$minuto]";
    print "\n";
}

__END__

#!/usr/bin/perl
use Config::Crontab;

use strict;
use warnings;
use diagnostics;

my $directorio = 'diario';
my $cron       = Config::Crontab->new();

my %scripts_puestos;
my $minuto_mayor = 0;

$cron->read( -file => "$directorio/planificacion.txt",  );

for my $evento ($cron->select()) {
    my $minuto = $evento->minute();
    $scripts_puestos{$evento->command()} = 1;
    $minuto_mayor = $minuto if $minuto > $minuto_mayor;
}

for my $script (<$directorio/S*>) {
    if (!$scripts_puestos{"* $script"}) {
        my $nuevo_evento
            = Config::Crontab::Event->new(
                -data => join(" ", ++$minuto_mayor, 12, 30, ('*')x2, "* $script"),
            );
        my ($block) = $cron->blocks();
        $block->last($nuevo_evento);
    }
}

$cron->write();

__END__