John
Doe
Smith

##</code><code>##

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

$dbh->disconnect;
@data = Dumper $sth;
print @data;