my $awesome = awesome();
print "still tickin'\n" while $awesome->();

sub awesome {
   my @a = (1 .. 10);
   return sub { shift @a };
}

my %code_table = (
   action1 => sub {print "doin' it\n"},
);

$code_table{action1}->();  # also awesome