my $config = do 'startup.pl'; #parse config into @vhosts foreach my $vhost (@vhosts) { $VirtualHost{$vhost}=>$config->{$vhost} }