return bless \@objref, $class;
to
$self = [@objref];
return bless $self, $class;

and changed the sub to 
sub get_desc()
 {
  my ($self, $idx) = @_ ;
  return $self->[$idx]{_description} ;
 }