if (@movement == (0, 1)) {$from = "north"}

##</code><code>##

if (@movement == ($any_other_value, 1)) {$from = "north"}

##</code><code>##

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