my @array1 = ("Ganze Sätze", "sollen an Leerstellen", "aufgespalten werden"); my @array2; push @array2, [ split / /, $_ ] for @array1; use Data::Dumper; print Dumper \@array2;