Как я использую индекс в ссылке на массив как ссылка метода в Perl?

Подобный этому вопросу об итерации по ссылкам подпрограммы, и в результате ответа на этот вопрос о OO диспетчеризируют таблицу, я задавался вопросом, как назвать ссылку метода в ссылке, не удаляя его сначала, или если это было даже возможно.

Например:

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'; return shift->{a} }
sub sub2 { say 'in sub 2'; return shift->{b} }
sub sub3 { say 'in sub 3'; return shift->{c} }

# 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;

sub get_index { ... } # details of how we get the index not important    

my $instance = Class::Foo->new(a => 1, b => 2, c => 3);
my $subs = $instance->sublist();
my $index = get_index();

# <-- HERE

Так, в ЗДЕСЬ, мы могли сделать:

my $ref = $subs->[$index];
$instance->$ref();

но как мы сделали бы это, не удаляя ссылку сначала?

Править:

Измененный пример кода так люди не становится одержимым деталями реализации (вздох, старался изо всех сил). Важное различие между этим и первой ссылкой, которую я дал, было то, что функция должна быть вызвана как метод, не как прямая подпрограмма.

Редактирование 2:

Посмотрите обсуждение в связанном комментарии о технических деталях, и почему более длинный путь (хранящий subref к переменной, затем называя его), вероятно, предпочтителен.