$locations{road}{actions}{north} = sub {
    $_[LOCATION] = $locations{woods};
};
$locations{road}{actions}{woods} = $locations{road}{actions}{north};