Select Code to Download

printf "%-12s %s\n", $_, $birthdays{$_} for grep { $birthdays{$_} } so
+rt keys %birthdays;

$ perl test.pl

...
Fred         June 1
Glenn        May 27
Ray          May 31