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

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