using me above array of arrayrefs implementation, if you want to sort on column 3 and break ties with column 1, do this:

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

that can be extended indefinitely with or "||" clauses, but to completely generalize this is much harder.