#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my $listfile='/pfdad/zur/datei.txt';
my @liste=();

open(FILE,'<', $listfile) or die "Konnte $listfile nicht oeffnen ($!)\n";
{
  local $/="#\n";
  push(@liste,[split(/\n/,$block)]) while(my $block=<FILE>);
}
close(FILE);
print Dumper(\@liste);