#!/usr/bin/perl -w
use strict;

my @list_o_subs = ('one','two','three','one','two','one','three','two'
+);

{
    no strict 'refs';
    for(@list_o_subs){
        &{$_};
    }
}
sub one
{
    print "called sub 'one'\n";
}
sub two
{
    print "called sub 'two'\n";
}
sub three
{
    print "called sub 'three'\n";
}
[download]

called sub 'one'
called sub 'two'
called sub 'three'
called sub 'one'
called sub 'two'
called sub 'one'
called sub 'three'
called sub 'two'
[download]