Unnamed

#!/usr/bin/perl
#

# Cut out niceness in favour of working.
use strict;
use warnings;

# Read a file into a variable (or die with error)
open(my $in,  "<",  "linesFile")  or die "Can't open linesFile: $!";
# Create a scalar and an array with the value of $in
my $openread  = <$in>;

my @openread = <$in>;
close $in;

# Print array to screen
print "\n";
print @openread;
print "\n";