0020001
1134539
1234975
3446890
3456843
2234535

##</code><code>##

foreach my $key_expal (%expal) {
            
            if($order == 2 ){
  
            $sql = "SELECT c_name FROM tbl_admin WHERE day = '$d' AND month = '$m_num' and year = '$y' AND expal = '$key_expal' AND status= '2' ORDER BY c_name ";
           
           }elsif($order == 3 ){
    
            $sql = "SELECT * FROM tbl_admin WHERE day = '$d' AND month = '$m_num' and year = '$y' AND expal = '$key_expal' AND status= '2' ORDER BY expal"; 		    
            
            }else{
   
            $sql = "SELECT * FROM tbl_admin WHERE day = '$d' AND month = '$m_num' and year = '$y' AND expal = '$key_expal' AND status= '2'";		    
           
            }

	    $sth = $dbh->prepare($sql);
	    $sth->execute() || die $sth->errstr;
	    

         while ($pointer = $sth->fetchrow_hashref){
  	     
	      my $expalnum=$pointer->{'expal'};
	      my $comp=$pointer->{'c_name'};	     
	      my $cltime=$pointer->{'time'};
	      my $cltime2=$pointer->{'time2'};
	      my $last_name=$pointer->{'last_name'};
	      my $clnum=$pointer->{'c_number'};
	      my $status=$pointer->{'status'};
	     print "<br>L 265 - <b>$comp</b> $expalnum";

	}


}

}