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,
);