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

@links1 = @{ $links[0] };
@links2 = @{ $links[1] };
@links3 = @{ $links[2] };

print "@links1<br>@links2<br>@links3";