my @sort = map { my $a = $_; [ map { $t->[$_] } @indexes ] } @array;