use Data::Dumper;
...
  $pessoais = "produtos/pessoais.dat";
  $mailprog = '/usr/sbin/sendmail';

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

  &search_database($pessoais,$search_for);
  $count = @results;
  print '@results= ',Dumper(\@results);
  ...

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