my $ref = $dbh->selectall_arrayref("
           select name, email from testtable") || die $dbh->errstr;

foreach my $person (@{$ref}) {
        my ($name,$emai) = @{$person};

        print "<font color=\"red\" >Name :  $name  </font>";
        print "<font color=\"blue\"> Email : $email </font><br>";        
}