open (INTERVAL, "/Users/logancurtis-whitchurch/Dropbox/thesis_folder/galaxy_chrX_data/chrX_1Mbwindow_nonoverlapping.interval") or die "can't open file\n"; while (my $interval = ){ chomp($interval); my @find_interval = split(/\t/, $interval); my $start = $find_interval[1]; my $end = $find_interval[2];