sub variablen {
   my ($tmp,%hash)    = @_;
   
   my ($k,$v);
   while (($k, $v) = each(%hash)) {
       $tmp =~ s/\<\*$k\*\>/$v/g;
   }
   
   return($tmp);    
}