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