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"
}