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.