my $comment= '- no comment found -';
                       foreach my $hash_ref2 (@result2) {
                               $comment = $hash_ref2->{'comment'};
                               if ($comment =~ /^this is an automatic comment/) {
                                       last;
                               }
                       }
print $comment;