given ( determine_type( $line ) ) {
   when { $PATIENT_ID } { process_patient( $line, \%data ); }
   when { $DOB }        { process_dob( $line, \%data ); }
...