@array =
    sort {
        my @cols_a = split /\s/, $a;
        my @cols_b = split /\s/, $b;
        $cols_a[1] cmp $cols_b[1] 
            ||
        $cols_a[2] cmp $cols_b[2] 
    }
    @array;