my %header_handlers = (
   Device => \&process_device,
   Type   => \&process_type,
   ...
);

...

my $handler = $header_handlers{$header};
&{$handler}($ref)
   if defined $handler;