# set $foo to 'bar'
my $foo = "bar";

# send $foo to this_func()
this_func($foo);

##</code><code>##

my $prog_state = "bar";
execInstructions($prog_state);

# and later...

=item C<execInstructions($state)>

Executes a given set of instructions for a specific state that the program is in.  Blah blah blah.

##</code><code>##

# radix sort, O(Nk)
# "Mastering Algorithms in Perl", Orwant, et. al.

my @sorted_names = radixSort(\@names);

##</code><code>##

# find_missing() uses a binary-tree approach
# see IMPLEMENTATION section of Pod for details

my $next_ID = find_missing(\@list);

##</code><code>##

perl -pe '$_ x= --$|' FILE