Named blocks

Blocks can be given names, thus:

#!/usr/bin/perl -w

LINE: while (<STDIN>) {
        ...
}

By tradition, the names of blocks are in upper case. The name should also reflect the type of thing you are iterating over -- in this case, a line of text from STDIN.