Select Code to Download

sub sterilize {
...
        sort { ( $a->[0] cmp $b->[0] ) or ( $a->[1] cmp $b->[1] ) }
        map { [ sterilize($_), $_ ] } @array;