sub searchsub
{
   my ($wanted)=@_;
   
   $wanted=extract_value($wanted);
   for(@$table)
   {
      return($_->{VALUE}, $_->{NAME}, $_->{ADDRESS}) if $_->{VALUE} eq $wanted
   }
   
   ()
}