@data = map {join "-", @$_}
        sort {$a->[0] <=> $b->[0]}
        sort {$a->[1] <=> $b->[1]}
        sort {$a->[2] <=> $b->[2]}
        map {[split /-/]} @data;