Next Welcome to my ~/bin 4

Idioms: "Topicalizer"

        @numbers = (1..4);
        for (@numbers) {
          $_ *= 2;
        }
        print "@numbers\n";     # prints 2 4 6 8

        ($a, $b, $c, $d) = (1..4);
        for ($a, $b, $c, $d) {
          $_ *= 2;
        }
        print "$a $b $c $d\n";     # prints 2 4 6 8

continued...