foreach $msg (keys %$messages) {
    my $r = $connect->top($msg);
    my $m = join ("<BR>",@$r);
    $grab .="<tr><td> $m </td></tr>";
}