Select Code to Download

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

my @d = map {[split /-/]} @data;
foreach my $i (reverse (0 .. 2)) {
...
    @d = map {@{$_ || []}} @t;
}
@data = map {join "-", @$_} @d;