until ((grep {$wake[$_] == $current[$_]} (0..$#wake)) == @wake));