Please note that this:

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

is equivalent to

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

Because it only tests the equivalence between the last element of the list and the array. update: no it doesn't; see above.

You probably want something like

    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"}
[download]

This also solves your warning by the way.

Hope this helps
Joost