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