open (FILE,"<datei.txt");
my @file = ();
while(my $row = <FILE>) {
  push(@file,[split(/\s/,$row)]);
}
close(FILE);
print Dumper(\@file);