Similar to this question about iterating over subroutine references, and as a result of answering this question about a OO dispatch table, I was wondering how to call a method reference inside a reference, without removing it first, or if it was even possible.

For example:

package Class::Foo;
use 5.012;   #Yay autostrict!
use warnings;

# a basic constructor for illustration purposes....
sub new { 
    my $class = shift;
    return bless {}, $class;
}

# some subroutines for flavor...
sub sub1 { say 'in sub 1' }
sub sub2 { say 'in sub 2' }
sub sub3 { say 'in sub 3' }

# and a way to dynamically load the tests we're running...
sub sublist {
    my $self = shift; 
    return [
        $self->can('sub1');
        $self->can('sub3'};
        $self->can('sub2');
    ];
}

package main;

my $instance = Class::Foo->new(a => 1, b => 2, c => 3);
my $tests = $instance->sublist();
my $index = int(rand($#{$tests}));

# <-- HERE

So, at HERE, we could do:

my $ref = $tests->{$index};
$instance->$ref();

but how would we do this, without removing the reference first?