Watch that .. 1 if you happen to be reading from a file at any point during the script. Interesting things could happen! From the perlop documentation for 'Range Operators':

If either operand of scalar ``..'' is a constant expression, that operand is considered true if it is equal (==) to the current input line number (the $. variable).