##
for (my $s=$start_of_barrel_region; $s<=(($start_of_barrel_region+$length_of_barrel_region)); $s++)
{
my $aa_pos=$s+1;
print PLP_FILE "$aa_pos\t".$split_query_for_PLP[$s]."\t".$hash_plp_lbl_barrel_region_only{$s}."\n";
}
####
my $aa_pos=$s+1;