http://www.perlmonks.org?node_id=973828


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}.