Help for this page
@movements == (0, 1);
local $" = ","; if ("@movement" eq "0,1") { ... } elsif ("@movement" eq "1,0") { ... } ...
local $" = ","; my %dir = ( ... "-1,0" => "west" ); $from = $dir{"@movement"};