>my_id
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

##</code><code>##

123-186
188-259
263-340
1-93

##</code><code>##

my $id = '--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
';
foreach my $l ( 0 .. $#{ $HoA{$id} } ) 
{
	my $separate_range = $HoA{$id}[$l];
	if($separate_range=~/(\d+)\-(\d+)/)
	{
		my $hit_beg=$1;
		my $hit_end=$2;
		my $hit_length=$hit_end-$hit_beg+1;
	
	}
}