open(intersectMethyl,'<',"intersect148methyl.bed") or die $!;
my @methylData = <intersectMethyl>;
close(intersectMethyl);

my @methylScore;
my @ids;

for my $line(@methylData){
    my($chr,$start,$end,$id,$scoreNormal,$scoreTumor) = split("\t",$line);
    push(@ids, $id);
    for ($i = 1; $i<eof; $i++){
      if (@ids[$i]==@ids[$i-1] &&  (($scoreTumor/1000) - ($scoreNormal/1000) >= 0.2)){
        push(@methylscore, "$chr    $start    $end    $id    $scoreNormal    $scoreTumor")
      }
    }
}


open(RESULTS,'>','methylDifferences.txt') or die $!;
foreach(@methylscore){
   print RESULTS "$_\n";
}
close(RESULTS);