use Data::Dumper;

sub Take_Txt{
    my $archivo = shift;
    open my $ARCHIVO, '>', $archivo or die $!;
    my @lineas = <$ARCHIVO>;
    close $ARCHIVO;
    shift(@lineas);
    die Dumper(\@lineas);    
    return @lineas;
}