I have a cgi script for my internet chatroom, and I cut and paste several lines here:

    if ($peer) {
        $msg .= $cgi->scrolling_list(-name => 'peer', -value => \@chat
+_user, default => $peer, size => 5, multiple => 'false');
    } else {
        $msg .= $cgi->scrolling_list(-name => 'peer', -value => \@chat
+_user, default => "All", size => 5, multiple => 'false');
    }
[download]

It basically creates a scrolling list and take values (chat room user names) from a list @chat_user. As size is 5, so the view of the list contains 5 elements.

In your case, if you want the names to be showed in the scrolling list, just:

print $query->scrolling_list(-name=>'list_name',
                                -values=>keys %names,
                                -default=>['eenie','moe'],
                                -size=>5,
                                -multiple=>'true');
[download]