my $primary_sort_column = n;
my $secondary_sort_column = n;
my $tertiary_sort_column = n;

my @sorted_records = sort {
    $a->[$primary_sort_column] op $b->[$primary_sort_column];
    ||
    $a->[$secondary_sort_column] op $b->[$secondary_sort_column];
    ||
    $a->[$tertiary_sort_column] op $b->[$tertiary_sort_column];
) @unsorted_records;