my $sql = "select name,address,phone,email from my table where name='mary'";
my $sth=$dbh->prepare($sql) or die "Couldn't prepare statement handle: ".$dbh->errstr();
my $count=$sth->execute() or die "Couldn't execute statement:".$dbh->errstr();
while (my @row=$sth->fetchrow_array()) {

     $AoH{ alldata } = join (' ', @row);
}
$sth->finish();