my( %site, %search );
use SiteConfig ( site=>\%site, search=>\%search );

##</code><code>##

package SiteConfig;

use strict;
use XML::Simple;

sub import {
    my %toImport= @_;
    foreach my $key (  keys %toImport  ) {
        %{ $toImport{$key} }= %{ XMLin("./$key.xml") };
    }
}

1;