or download this
open(INPUT, "/Users/logancurtis-whitchurch/Dropbox/thesis_folder/conse
+nsus_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 );