while (my ($emp_id, $emp_name, $dept) = $sth->fetchrow_array) 
{ ... }