print qq{ask_bigdb [options] >> $filename\n}; ### OFFENDING LINE!!!

##</code><code>##

my @lines = ask_bigdb(@options); # whatever that ask_bigdb is...
shift @lines;                    # get rid of header
open my $outfh, '>>', $filename  # append to file
   or die "Can't append to '$filename': $!\n";
print $outfh @lines;
close $outfh or die "Can't close '$filename': $!\n";

##</code><code>##

        redo;    # do the next arm of chromosome ...