+----------+
| lastname |
+----------+
| john     |     
| Doe      |
| Jones    |
| Smith    |
+----------+

##</code><code>##

my $sth = $dbh->selectrow_array("SELECT lastname FROM dbase");

$dbh->disconnect;
#its ok with array
@data = $sth1;
print @data;