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

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

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