my $ftest = "hier";

my %switch = (
    hier => sub { return "hier und heute"  },
    dort => sub { return "dort und morgen" },
);

my $ferg = $switch{$ftest}->()