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

##</code><code>##

    $b ne ($a=int(rand($#values-$b+1))+$b) 
    and $values[$b] ^= $values[$a] ^= $values[$b] ^= $values[$b] 
        for $b (0..$#values);