use Tie::Array;
@ISA = qw(Tie::StdArray);

sub FETCH {
    my ($self,$index) = @_;
    if (ref($self->[$index]) =~ /CODE/) {
        return $self->[$index]->();
    }
    $self->[$index];
}