in reply to Strange "Useless use of constant" message: should not appear at all!

You can't do array comparisons like that. You're getting the warning because @x == (1,2) is evaluating (1,2) in scalar context. The comma operator, in scalar context, evaluates its left-hand operand and discards its value, and returns its right-hand operand. So the 1 is useless.

Perhaps you want:

if ("@movement" eq "1 0") { ... } elsif ("@movement" eq "0 1") { ... } # etc.
_____________________________________________________
Jeff[japhy]Pinyan: Perl, regex, and perl hacker, who'd like a job (NYC-area)
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;