$_ ne ($a=int( rand( $#values-$_+1))+$_) 
    and $values[$_] ^= $values[$a] ^= $values[$_] ^= $values[$a] 
        for (0..$#values); # Fisher-Yates one-liner