package SiteConfig; use strict; use XML::Simple; sub import { my %toImport= @_; foreach my $key ( keys %toImport ) { %{ $toImport{$key} }= %{ XMLin("./$key.xml") }; } } 1;