while (@online) {
    push @links1, shift @online;
    push @links2, shift @online;
    push @links3, shift @online;
}

##</code><code>##

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

##</code><code>##

$var = $links[2]->[1];