my %db_results;
my @parm_cols = qw( abc ghi jkl def );
my $select = 'SELECT '.join(',', @parm_cols);
# Read db
@db_results{@parm_cols} = (4,3,2,1);
print join(' ', @db_results{@parm_cols}), "\n";
# Or index individual columns at will