How about something like...

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

(NB can't check this right now though)

andy.