#!/usr/bin/perl -l

use strict;
use warnings;

my @subs = (
    q/ { my $i=0; sub { print "($i) First sub, sir!"; ++$i; } } /,
    q/ { my $i=0; sub { print "($i) Another sub, sir!"; ++$i; } } /
);

my @code = map { eval $_ } @subs;

$code[rand(2)]->() for (0 .. 20);