# initialisierung wie oben
$x=0;
@arr = sort { $a->[$x] <=> $b->[$x] } @arr;