@ra=qw/foo baz one two/;
@sub=qw/foo qux one three/;
print join'<br>',map@ra[$_]eq$sub[$_]?"answered $_right":"answersed $_ wrong!",0..@sub;