sub retrieve {

  my $self = shift;
  use Data::Dumper;
  my $q    = $self->query;
  my $tmpl = $self->load_tmpl(
    "showitem.html",
    loop_context_vars =>1,
    associate => $q
  );
                               
  $tmpl->param(
    product => 
      $self->dbh->selectall_arrayref(
        q[
          SELECT 
            image, 
            price, 
            description, 
            serial 
          FROM 
            product 
          WHERE 
            id = ?
        ], 
        { Slice => {} },
        $q->param('item')
      )
  );
  
  return $frm->build_page(
    { title =>  "Boyo's Place: " . 
        $self->dbh->selectrow_array(
          q[
            SELECT 
              name 
            FROM 
              product 
            WHERE 
              id=?
          ], 
          { Slice => {} }, 
          $q->param('item') 
        ), 
        output => $tmpl->output 
    } 
  ), 
  $q->code(Dumper(\$tmpl));
  
}

##</code><code>##

my $arrayref = $self->dbh->selectall_arrayref( etc....
die Dumper $arrayref;
# on a subsequent run
my $arrayref2 = $self->dbh->selectrow_array( etc...
die Dumper $arrayref2;
# and even
die Dumper $q->param('item');

##</code><code>##

item => $item_value