$name='Foo';
&populate($name);  #If someone figures out an OO method of this, that's fine too
#package Foo now has the default values
$::oldpackage=$__PACKAGE__;
package $name;
#Change it from the defaults
$bar='baz';
package $::oldpackage;  
#continue on with the program, now that Foo has all the data I want.