use DBI;

my $host ="";
my $db   ="";
my $usr  ="";
my $pwd  ="";

my $dbh = DBI->connect("DBI:mysql:$db:$host", $usr, $pwd, {
                             AutoCommit => 0,
                             RaiseError => 1,
                             }) or die $DBI::errstr;

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

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