c:\@Work\Perl\monks>perl -wMstrict -e
"my %birthdays = (
   Fred   => 'June 1',
   Ray    => 'May 31',
   Glenn  => 'May 27',
   Bob    => 'August 28',
   Jim    => '',
   Paul   => undef,
   );
 ;;
 my $fmt = '  %-10s %s';
 printf qq{$fmt \n}, 'Name', 'Birthday';
 print '-' x 25, qq{\n};
 ;;
 B_DAY:
 foreach my $name (keys %birthdays) {
   next B_DAY
     unless defined $birthdays{$name}
        and length  $birthdays{$name}
          ;
   printf qq{$fmt \n}, $name, $birthdays{$name};
   }
"
  Name       Birthday
-------------------------
  Ray        May 31
  Bob        August 28
  Glenn      May 27
  Fred       June 1