1 while (@_ = <*.plc>);

##</code><code>##

1 while ((@_ = <*.pld>) < $count);