use constant XXX => 0xcccc;

($self->{auth_mode}, $val) = unpack('H4a*',$val);
$self->{auth_mode} = hex($self->{auth_mode});

given ($self->{auth_mode})
{
when (XXX) {do_smthg;}
}