#!/usr/bin/perl
foreach("00001".."00021"){
  print "$_\n";
}