in reply to oracle connection
You could put them in a hash. For example, pass the names to the routine (e.g. proc( [qw(foo bar)] )), and then say in the routine
my $names = shift; ... @v{@$names} = $sth->fetchrow()
(The @v{...} is a hash slice, which means you can assign multiple entries in one go.)
You can then access the "variables" as $v{foo} and $v{bar}.
In Section
Seekers of Perl Wisdom