#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

my $file = '/datei.txt';

my @items;
{
    # nicht zeilenweise einlesen, sondern blockweise
    # ein block endet mit einer 999 in einer zeile
    local $/ = "\n999\n";

    open my $fh, '<', $file or die $!;
    @items = <$fh>;
    close $fh;
}

print Dumper \@items;