Also, sh1tn, I don't understand
++$counter > 200 and last;

++$counter      # increments the value of $counter and returns
                # the values after the increment
and             # logical and operator
last            # immediately exits the loop
[download]

You may want to see perlop and last command.