Select Code to Download

my ($foo,$bar,$baz,$i);
for my $quux ($foo, $bar, $baz) {
    $quux = $i++;
...
print "$foo $bar $baz\n";
__END__
0 1 2

sub wibble {
    return unless @_ > 2;
    my ($string, $position, $count) =
        map { alias } @_;
    # . . .
}