#!/opt/local/bin/perl
#
use strict;

use MM::RefSeq qw(@REF_SEQ);

shift @REF_SEQ;

# OO has a limit of around 16400 elements in its arrays (presumable 2^14).  
# Therefore, create three separate arrays.
for (my $i=0; $i < @REF_SEQ; $i++){
    if ($i and !($i % 25) ){
        print " _\n";
    }

    if ($i and !($i % 5000) ){
        print "\n\n\n\n\n";
    }
    print '"', $REF_SEQ[$i], '", ';
}
print " _";