if ( $body =~ /^!seto\s*$/ ) {
		my @order = ("pea","plum","banana");
		$self->set("fruit_order"=>@order);
		my @o = @{ $self->get("fruit_order") || [] };
		return @o;
}
if ( $body =~ /^!seto\s*$/ ) {
		my @order = ("pea","plum","banana");
		$self->set("fruit_order"=>\@order);
		my @o = @{ $self->get("fruit_order") || [] };
		return @o;
}