for ($hourse = 0; $hourse <= 23; hourse++)
{
print "\nHappy birthday Perl!";
}