my $ftest	= "hier";
my $ferg	= "";

switch ($ftest) {
	case "hier" {$ferg = "hier und heute";}
}