my sth self dbh prepare query self- Error err self dbh errstr sth- exe

  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]:"";
    }
  }