# define the process_hash near the top
#
Readonly my %PROCESS => ( $PATIENT_ID => \&process_patient,
                          $DOB        => \&process_dob,
                          ...
                         );

# and use it in the loop
#
my $type = determine_type( $line );
$PROCESS{$type}->( $line, \%data );