<Perl>
$VirtualHost{'myip'}=[];
open F,"domainlist.txt" or die $!;
while(<F>)
{
  chomp($_);
  push @{$VirtualHost{'myip'}},
  {
    ServerName => $_,
    DocumentRoot => '/home/foo/bar'
  }
}
</Perl>