use constant XXX => 'cccc';

$self->{auth_mode} = lc $val;

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