$function{$file}->($fh, $dir)
...
allergies       => \&print_allergies