my @sorted = map {
    $_->[0]
} sort {
    $a->[1] <=> $b->[1] || $a->[2] <=> $b->[2]
} map {
    [$_, m/^g(\d+)\.t(\d+)$/]
} @ar;