if ( $body =~ /^!setq\s*$/ ) {
  my @order = ("orange","peach","banana");
  $self->set("fruit_order"=>\@order);
  my $o= $self->get("fruit_order");
  my $ou= "order: ".join(", ",@$o);

  return $ou if (ref $o eq 'ARRAY');
  return "no order :(";
}