my @sorted_data = sort { $a->[3] <=> $b->[3] } @data;