print $rowobj->can( $cols{id} )->();

##</code><code>##

print $rowobj->${ \$cols{id} };