my ($col1, $col2, $col3) = $dbh->selectrow_array($query);

##</code><code>##

  my $emps = $dbh->selectall_arrayref(
      "SELECT ename FROM emp ORDER BY ename",
      { Slice => {} }
  );

##</code><code>##

  foreach my $emp ( @$emps ) {
      print "Employee: $emp->{ename}\n";
  }