use syntax qw( loop );

loop {
   ...
}

##</code><code>##

while (1) {
   ...
}

##</code><code>##

mygrep BLOCK LIST

##</code><code>##

grep BLOCK LIST