@sortedlines = sort { $a->[1] <=> $b->[1] } @lines;