Select Code to Download

sub toggle {
  my @states = @_;
...
    return $states[ $index++ % ( scalar @states ) ];
  }
}

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

sub curry {
    my ( $fnc, @arguments ) = @_;
...
        return &$fnc( @arguments, @_ );
    }
}

sub echo {
    return join( " ", @_ );
}

my $boss = &curry( \&echo, "My", "boss:" );
my $friend = &curry( \&echo, "Johnny:" );

print &$boss qw( has pointy hair ), "\n"; # "My boss: has pointy hair
print &$friend qw( likes rock and roll ), "\n"; # etc.