sub AS_ARRAY {
    my $self=shift;
    # do something useful here
}