@movements == (0, 1);

##</code><code>##

local $" = ",";
   if ("@movement" eq "0,1") { ... }
elsif ("@movement" eq "1,0") { ... }
...

##</code><code>##

local $" = ",";
my %dir = (
    "0,1"  => "north",
    "1,0"  => "east",
    "0,-1" => "south",
    "-1,0" => "west"
);
$from = $dir{"@movement"};