### WRONG ###
while (<BIG>) {
  open OUT, ">outfile_" .$i++;
  if ( m/^\$\n$/ ) {

### CORRECT ###
open OUT, ">outfile_" .$i++;
while (<BIG>) {
  if ( m/^\$\n$/ ) {