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