Select Code to Download

while ( my ( $k, $v ) = each %h ) { ... }
while ( my $line = <> ) { ... }
for ( my $ix = 0; ...; ... ) { ... }

my $... = ... if ...;
... or
    my $... = ...;