open(INPUT, "/Users/logancurtis-whitchurch/Dropbox/thesis_folder/consensus_files/mask_files/mask."."$population".".chr.23.txt") or die "can't open masked file\n";
;;
my $input = <INPUT>;
;;
chomp($input);
;;
my @info = split( //, $input );