Select Code to Download

my @sorted = sort { 
    $b->[0] <=> $a->[0] || $b->[1] <=> $a->[1] || $b->[2] cmp $a->[2] 
} @list;

my @sorted =
    map  { join ",", @$_ }
    sort { $b->[0] <=> $a->[0] || $b->[1] <=> $a->[1] || $b->[2] cmp $
+a->[2] }
    map  { my @t = split /,/, $_; \@t }
    @list;