foreach (@online) {
  if ($linkscount == 4) {
    $linkscount = 0;
  }
  $linkscount++;
  print "$_ :: $linkscount<br>\n";
  if ($linkscount == 1) {
    push @links1, $_;
  } elsif ($linkscount == 2) {
    push @links2, $_;
  }  elsif ($linkscount == 3) {
    push @links3, $_;
  } else {
    print "error!";
    exit;
  }
}