for my $msgid (@$msglist) {
      $log->debug("Msg $msgid");
      my $header_lines= $conn->top($msgid);
      my $head= MIME::Head->from_file(\join('', @$header_lines)) or die;
      ...
      # filtering code goes here, which inspects headers