#!/usr/bin/perl

{
  for my $j (1..100000) {
    print "$j\n";
    for my $i (1..10000) {
    }
  }
}