my alternative is this, in the program:
@[EMAIL PROTECTED]::Countries;
foreach $Country(@Countries)
{
if ($Country eq "Ireland")
[EMAIL PROTECTED]@NameList::IrelandLord}
if ($Country eq "Wales")
[EMAIL PROTECTED]@NameList::WalesLord}
print @Lords;
}
but this means I have to adjust the code in the program each time
and I was hoping to only adjust
the info in the package and let a loop in the program do the rest.
Lou
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
