my %config = ParseConfig(\*DATA);

   for (keys %{$config{template}}) {
      if (/^http/) {
         $config{template}{home_url} = $_;
         delete $config{template}{$_};
         last;
      }
   }
   $Data::Dumper::Sortkeys = \%config;
   print Dumper(\%config);  
   print $params{'home_url'};