for(1 .. 31){
  print $_ . suffix($_) . "/n";
}