for $node (@nodes) {
 for $link ($node->{links}) {
  &updatePosition($link->node,$link);
 }
}
[download]

What this may not take into account is that in real life all nodes move at once, not one at a time, but it might help you get started.