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";	
}