#!/usr/bin/perl
use warnings;
use strict;

my @list = qw/one two three/;
foreach (@list) {
    my $coderef = \&$_;
    &$coderef($_);
}

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