sub new
 {
   my ($class) = @_;
   my $self =  {
                _length          => "",
                _score           => [ [],[] ],
                _coordinates     => [],
                };
 
    bless {$self,$class};
 } # END "new" method

##</code><code>##

sub findcoordinates
   {
     my ($self) = @_;
     my $first;
     my $last;
     for (my $i=2;$i <= 5;$i++) 
       {   
         my $base = 0;
         while($base <= (($self->{_length})-$i)) 
           {
            if (@{$self->{_score}[$i][$base]} = "1")
              {
               $first = $base;
               while (@{$self->{_score}[$i][$base]} ne "0") 
                {
                  $last = $base;
                  $base++; 
                } 
                  @{$self->{_coordinates}[$base] =  @{$self->{_coordinates}[$base] + "$first-$last";
               }
              else
               {
                $base++;
               }
           }  
       }
  } #END findcoordinates method