my %function = (
  allergies => sub { print "in allergies\n" },
  immunizations => sub { print "in immunizations\n" },
);
...
$function{$file}->() if exists $function{$file};