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
}

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

my @array = (
    [ qw/ david raab 24 3 /    ],
    [ qw/ anne schmidt 23 1/   ],
    [ qw/ manuel montero 24 2/ ],
);

@array = sort { $a->[3] <=>  $b->[3] } @array;

print Dumper \@array;

$VAR1 = [
          [
            'anne',
            'schmidt',
            '23',
            1
          ],
          [
            'manuel',
            'montero',
            '24',
            2
          ],
          [
            'david',
            'raab',
            '24',
            3
          ]
        ];