##





##

##

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

##

##





##

##

my %name = (Fred => 4, Wilma > 5, Dino => 9);

##

##

my %name = (4 => 'Fred', 5 => 'Wilma', 9 => 'Dino');

##

##

my @value = sort { $name{$a} cmp $name{$b} } keys %name;

##

##

my %name  = (4 => 'Fred', 5 => 'Wilma', 9 => 'Dino');
my @value = sort { $name{$a} cmp $name{$b} } keys %name;

print scrolling_list(
    -name   => 'list_name',
    -values => \@value,
    -labels => \%name,
);

##

##