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