my $sql1 = "select deptid,to_char(a.epfno) epfno,a.ename ename,desig,decode(b.status,'P','उपस्थित','A','अवकाश','D','प्रतिनियुक्ति') status,b.rmk from Atnd_emp_mast a,Atnd_position b where repoid=1 and ISACTIVE=0 and a.epfno=b.epfno and SUMM_HOD_FLAG=1 and ATTEN_DT=to_date('17-12-2020','DD-MM-YYYY') order by SUMM_SORTID"; $sth =$dbh->prepare($sql1); $sth->execute(); my @rows =$sth->fetchrow_array; while (@rows=$sth->fetchrow_array) { binmode(STDOUT, ":utf8"); print join(",",@row),"\n"; }