Perl Configured VirtualHost question

Typically my manually configured vhosts look like this :

NameVirtualHost 10.0.0.20:80

<VirtualHost 10.0.0.20:80>
     ServerName BladeBla.com
     DocRoot ....
     ...
     ...
</VirtualHost>
<VirtualHost 10.0.0.20:80>
...
</VirtualHost>

This works great for my statically configured hosts. How 
do you accomplish this same VHost scheme wheh configuring 
via perl? Each %VirtualHost key is a single server and I 
am so far unable to assign multiple values ( array ref? ) 
to a single key (the IP assigned in NameVirtualHost).

Any tips or pointers would be nice. I am trying to move a 
machine and in its new home the perl configured vhosts ( 
About 1100 of them ) are resolving to a the _default_ host 
since this particular system is using the older style name 
based hosts and not the newer (to me) NameVirtualHost 
directive syntax.

John-