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