#!/usr/bin/perl -w
use strict;
use IO::File;
use constant FILENAME => filename;

my $file = IO::File->new( "< ". FILENAME )
    or die "Failed to open '@{[FILENAME ]}', $!";
my @elements;
{
    local $/ = $/.$/;
    @elements = <$file>;
}
$file->close();