Select Code to Download

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

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

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