#!/usr/bin/perl

use warnings;
use strict;

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