my $from = "";
    if (@movement == (0, 1)) {$from = "north"}
    elsif (@movement == (1, 0)) {$from = "east"}
    elsif (@movement == (0, -1)) {$from = "south"}
    elsif (@movement == (-1, 0)) {$from = "west"}


##</code><code>##

Useless use of a constant in void context at D:\data\Proggen\perl\mtgrpg\FOE.PM
line 149.