#!/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";
}



##</code><code>##

called sub 'one'
called sub 'two'
called sub 'three'
called sub 'one'
called sub 'two'
called sub 'one'
called sub 'three'
called sub 'two'