# instead of my @o = @{ $self->get("fruit_order") || [] };
my $o= $self->get("fruit_order");
use Data::Dumper;
print Dumper($o),"\n";
print ref $o,"\n";
return @$o if (ref $o eq 'ARRAY');