for (1..5000) {
  push @array,$_;
}