#!/usr/bin/perl -w
use strict;
use IO::File;
use constant FILENAME => 'filename'; #Replace filename with name of input file.

my $file = IO::File->new( "< ". FILENAME ) 
   
    or die "Failed to open '@{[FILENAME ]}', $!"; # Dereferenced array ref and OS error
		
my @elements;
{
    local $/ = $/.$/; #Replace default input delimeter (\n) with (\n\n)
    @elements = <$file>;
}
$file->close();

#Now test to see that everything reads out okay
print "Here are the elements of the array:\n";
for (my $i = 0; $i < @elements; $i++) {
	print "Element number $i of the array is:\n$elements[$i]\n";	
}