Store the code ref itself, not the names in your list.

use warnings;
use strict;

my @list = (\&one, \&two, \&three);
for (0 .. $#list) {
    &{$list[$_]}($_);
}

sub one {
    my $number = shift;
    print "Sub $number reporting for duty.\n"
}

sub two {
    my $number = shift;
    print "Sub $number reporting for duty.\n"
}

sub three {
    my $number = shift;
    print "Sub $number reporting for duty.\n"
}
[download]