#!/usr/bin/perl -w
my @movement = (0,1);
    my $from = "";
    if (@movement == (1, 0)) {$from = "east"}
    if (@movement == (-1, 0)) {$from = "west"}
    print "\$from = <$from>\n";