@list=map {$_.="00"}("00".."23");
print join("\n",@list);