No need to recreate the original if you save it.

@Array = map { $_->[0] }
         sort { $a->[1] <=> $b->[1] || $b->[2] <=> $a->[2] }
         map { [ $_, split /,/ ],
         @Array;
[download]