my @array = ();
my @array_row;

push (@array, "$x $y $z $E");

for my $j(0..$#array)
{
@array_row = split(' ', $array[$j]);

#print "$array_row[3]\n"; # gibt $E aus
#print @array; #alle $x, $y, $z und $E ausgeben
}