open(FILE, "testdatei.txt") or die("oops: $!\n"); $/ = undef; $data = ; close FILE; my @zeilen = split(/\n/,$data); my @tabelle; push @tabelle, [ split / /,$_] for @zeilen; use Data::Dumper; print Dumper \@tabelle;