my $sth = $$self{dbh}->prepare($query) || $self->Error(err=>$$self{dbh}->errstr);; $sth->execute($ENV{CLIENT_ID}) || $self->Error(err=>$$self{dbh}->errstr); my $names = $sth->{NAME}; while (my $row = $sth->fetchrow_arrayref) { push(@OperatorSortId, $$row[0]); foreach my $n(0..(@{$names}-1)) { $OperatorsMap{"$$row[0]"}{"$$names[$n]"}=defined $$row[$n]?$$row[$n]:""; } }