my %name = (Fred => 4, Wilma > 5, Dino => 9);
print scrolling_list(-name => 'list_name', -values => \%name);