my @movement = (0,1);
    my $from = "";
    if (5 == (3,4,5)) {$from = "north"}
    elsif (@movement == (1, 0)) {$from = "east"}
    elsif (@movement == (0, -1)) {$from = "south"}
#    elsif (@movement == (-1, 0)) {$from = "west"}
    print "\$from = <$from>\n";