my $t = &toggle qw( alfa beta gamma );
print &$t(), "\n" foreach ( 1 .. 20 );