sub set_lang {
   my $self = shift;
   my $lang = shift;
    ...
   &{$lang_to_func{$lang}}(...);
}