my %dirs = (
   log => "hello",
   ...
};

my $dir_type = function1();

die("Unknown dir type $dir_type\n")
    if !exists($dirs{$dir_type});

my $dir = $dirs{$dir_type};