Select Code to Download

foreach (@output) {
                print "Round $i\n " ;
...
                $i++ ;
               sleep(1) ;
            }

foreach (@output) {
  print "$_\n" ;
  }