use B qw(class svref_2object);
use Data::Dumper;

@a = map {
    my $k = rand;
    sub { print $k }
    }
    0, 1;
@a =
    map
        map( [ map +( class($_) ne 'SPECIAL'
                      ? $_->object_2svref
                      : $_ ),
                   $_->ARRAY ],
             svref_2object($_)->PADLIST->ARRAY ),
    @a;

print Dumper( @a );