my $data = $sth->fetchrow_hashref();
my $object = bless $data,Some::Class;

package Some::Class;
use base 'Class::Accessor';
__PACKAGE__->mk_accessors(qw(result_column_a result_column_b .... );