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