my $from =
    "@movement" eq '0 1'  ? 'north' :
    "@movement" eq '1 0'  ? 'east'  :
    "@movement" eq '0 -1' ? 'south' :
    "@movement" eq '-1 0' ? 'west'  :
    die "Unknown direction: (@movement)";