use Data::Dumper; my @array = (); foreach(@zeilen){ my @line = split(/\s+/,$_); push(@array,\@line); } @sorted = sort{$a->[0] cmp $b->[0] or $a->[5] <=> $b->[5]} @array; print Dumper(\@sorted);