Select Code to Download

@movements == (0, 1);

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

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