my $sortierSpalte = 3;
my @sortedList = 
  map { $_->[1] }
  sort { $a->[0] cmp $b->[0] }
  map { (split(/\|\|/, $_))[$sortierSpalte], $_ }
  @unsortedList;