Select Code to Download

sub gen_iterator {
    my @initial_info = @_;
...
        return $current_state = $next_state;   
    };
}

my $next = gen_iterator( 42 );
while ( my $item = $next->() ) {
    print "$item\n";
}

my @DNA = qw/A C T G/;
my $seq = gen_permutate(14, @DNA);
...
        return join '', map { $list[ $_ ] } @curr;
    };
}

my $start = $ARGV[0] || 999999;
my $next_id = gen_id( $start );
...
    $tot += $_ for split //, $chk;
    return $tot % 10 == 0 ? 1 : 0;
}

my $next_file = rotate( qw/FileA FileB FileC/ );
print $next_file->(), "\n" for 1 .. 10;
...
        return $list[ $index ];
    };
}

while ( my $pass = $next_pw->() ) {
    if ( unlock( $pass ) ) {
...
    };
}
sub unlock { $_[0] eq 'john' }

my @list = map { my @lines = <$_>; \@lines } @f_handles;
# becomes
...
        return \@lines;
    };
}

sub infinite_evens {
    my $curr = shift;
...
}
my $next_even = infinite_evens( 41 );
print $next_even->(), "\n" while 1;