use strict;
use warnings;

my @names = qw(tom harry diana nick sally henry);
my @actions = (\&play, \&eat, \&sleep);

for my $index (0 .. $#names) {
    $actions[$index % @actions]->($names[$index]);
}


sub play {
    print "$_[0] plays\n";
}


sub eat {
    print "$_[0] eats\n";
}


sub sleep {
    print "$_[0] sleeps\n";
}

##</code><code>##

tom plays
harry eats
diana sleeps
nick plays
sally eats
henry sleeps