$sql = qq/
    SELECT * 
    FROM tbl_admin 
    WHERE 
        day = '$d'        AND 
        month = '$m_num'  AND
        year = '$y'       AND 
        expal IN (/ . 
            join(',',keys %expal) . qq/
        ) AND 
        status = '2'/;