#!/usr/bin/perl -w

use strict;

for (1..4) {
  print "Happy Birthday ";
  $_ % 3 ? print "to you\n" : print "dear [merlyn]\n";
}