foreach $letter (x','y','z'){
 foreach $number (1 .. 5){
if (wait() != -1){
 if ($pid = fork){
  print "Forking for $letter, $number\n";
  sleep 15;
  exit;
 }}}}