require "dumpvar.pl";
...
  $pessoais = "produtos/pessoais.dat";
  $mailprog = '/usr/sbin/sendmail';

  $search_for   = "a";
  $search_field = "all";

  &search_database($pessoais,$search_for);
  $count = @results;
  print '@results:',"\n";
  dumpValue(\@results);
  ...

  ...
  foreach $results (@results){
        ($key,$description,$speed,$ref,$qid) = split(/\|/,$results);
      print '($key,$description,$speed,$ref,$qid):',"\n";
      dumpValue([$key,$description,$speed,$ref,$qid]);
      print MAIL "$description $FORM{$qid}\n\n";
  }
  print '%FORM= ',"\n";
  dumpValue(\%FORM);
  ...