<>;@a=<>;0while$,=$/,grep$r[$_]==$a[$_],@r=sort{rand 2}++$i<$