for (1..100) {
   print $result[$_ % 100];
}