my $sql = "select name,address,phone,email from my table where name='mary'";
my $allnames= $dbh->exec_select( $sql ) or die "Couldn't execute statement: $dbh->errstr";;


      
if(@$allnames)  { 

      for (my $i = 0; $i < @$allnames; $i++)  
       {


         my $allname = $allnames->[$i]{ 'name' } || '';
	 my $alladdress = $allnames->[$i]{ 'address' } || '';
	 my $allphone= $allnames->[$i]{ 'phone' } || '';
	 my $allemail = $allnames->[$i]{ 'email' } || '';
        
          
         $AoH{ alldata } = $allname."&nbsp;".$alladdress."&nbsp;".$allphone ."&nbsp;".$allemail;  

}