Select Code to Download

print PLP_FILE   "$aa_pos\t".$split_query_for_PLP[$s]."\t".$hash_plp_l
+bl_barrel_region_only{$s}."\n";

for (my $s = $start_of_barrel_region; $s <= (($start_of_barrel_region 
++ $length_of_barrel_region)); $s++)
{
...
    warn "\$hash_plp_lbl_barrel_region_only{$s} is undefined" unless d
+efined $hash_plp_lbl_barrel_region_only{$s};
    print PLP_FILE "$aa_pos\t".$split_query_for_PLP[$s] . "\t" . $hash
+_plp_lbl_barrel_region_only{$s} . "\n";    
}