use strict;
use Data::Dumper;

open(FILE, "<", "file.in") || die "Error in : $!";
my @array = <FILE>;
close FILE;
print Dumper(\@array);


file.in

here i am , 
where are you,
i am here 
and you 
also here  


##</code><code>##

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;
}