my %lookup = map {
   no warnings 'refs';
   $_ => \&{"handle_fieldcode_$_"}
} 'A'..'Z';
...modify %lookup for expections...