for my $s ( 0 .. $#array )
                {
                    for my $r ( 0 .. $#array )
                    {
                        if ( $s != $r && $array[ $s ] < $array[ $r ] )
                        {
                            @array[ $r, $s ] = @array[ $s, $r ];
                        }
                    }
                }