Select Code to Download

+----------+
| lastname |
...
| Jones    |
| Smith    |
+----------+

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

...
#its ok with array
@data = $sth1;
print @data;