my $ID= "0001";
foreach (1..20) {
   print "REG-RC-$ID\t";
   ++$ID;
   }