Select Code to Download

 while(...){
    @data= split ("\t", $line);  
                            
...
         $data{$curr_identifier}= [@result];
     }
}

  if (!defined $data{$curr_identifier}[2]){
            $output1= "no height for both markers- failed";
 } else {
...
 }
 
 print $curr_identifier, $output1 . "\t" . $output1 . "\n";