while (@online) {
    push (@{$links[$_]}, shift @online) for 0..2;
}