my @locus_small = ();
my $line;

foreach $line (@locus) {

    my @tokens = split(/\t+/, $line);
    unless(scalar @tokens < 6) {
	push(@locus_small, "$tokens[0]\t$tokens[1]\t");
    }
}