my $fh = IO::File->new;
*{$fh} = \ "foo";       # we'll split at foo

$fh->open("< $file") or die "barf: $!";
my @ary;
{
    local $/ = ${*{$fh}{SCALAR}};
    @ary     = <$fh>;
}