$emp_qry->execute(); while ( my $emprec = $emp_qry->fetchrow_hashref ) { $tmp_e1 = $emprec->{e1}; $tmp_e2 = $emprec->{e2}; $tmp_e3 = $emprec->{e3}; $tmp_e4 = $emprec->{e4}; } $emp_qry->finish();