#!/usr/bin/perl -w

use strict;

use mymodule;

my $file = 'bushmen.out';

my ($array_ref) = read_tabfile($file);

my @array = @$array_ref; # dereferencing

for ( my $i = 0 ; $i <= $#array ; $i++ ) {

    # is KB1 the same as NA18507 (Yoruba) ?
    if ( $array[$i][5] eq $array[$i][16] ) {
        print "pos $array[$i][1]\n";
    }
}