##

    my @fields = qw(your columns names here);
    $object->get_all(%params);
    while (my $obj = $object->get_next){
        my @row = map {{value => $obj->$_}} @fields;
        push @data, {cols => \@row};
    }
    $template->param(fields =>  \@fields);
    $template->param(data => \@data);