open (my $fh, '<', $logfile)...
my @file =<$fh>;
close($fh)