while(my @field=$sth1->fetchrow_array){
                my $col1=0;
                $field[19]=~ s!^0!!g;
                print"\t $field[19]";
                $field[8]=$priority{$field[8]};
                $field[7]=$priority{$field[7]};
                $field[33]=$statusyn{$field[33]};
                $field[17]=$status{$field[17]};
                $field[14]=$statusyn{$field[14]};
                $field[44]=$tkttype{$field[44]};
                $field[32]=$statusyn{$field[32]};
               my $arr_ref=\@field;
              # my $date = $arr_ref->[$datecol];
               # $date =~ s/ //;
                $worksheet1->write_row($row1,0,$arr_ref);
                $row1++;
        }