#!/usr/bin/perl;
use strict;
use warnings;
use Getopt::Long;
my @ARRAY = ();
my $ARRAYlength = -1;
my $FILEname="/var/log/logfile.txt";
open FILE, $FILEname or die "couldn't open $FILEname: $!";
while (<FILE>)
{
@ARRAY = <FILE>;
print "@ARRAY\n"
}
close FILE or die "problems closing $FILEname: $!";,<