What I've got is a hash where they key is a record number and the value is text. I want to pass the keys as -values, but sorted by the hash values. Here's my code... no laughing please....

    my %restaurants=&queryrestaurants;
    my @restaurantvalues=keys(%restaurants);
    print start_multipart_form();
        print center(scrolling_list(-name=>'restauranttitle',-values=>
+[@restaurantvalues],-default=>undef,size=>14,-multiple=>'false',-labe
+ls=>\%restaurants),submit(-name=>'job',-value=>'edit'),submit(-name=>
+'job',-value=>'new'));
    print endform;


sub queryrestaurants {


    my (%restaurants,$restaurant,$address1,$address2,$zipcode,$phonenu
+mber,$record);
    use DBI;

        my $dbh = DBI->connect("DBI:mysql:dbname:$sqlserver:3306","log
+in","passwd");
        my $sql_statement = "SELECT \* FROM location order by restaura
+nt";
        my $sth = $dbh->prepare($sql_statement);
        $sth->execute() or die "Can't execute SQL statement : $dbh->er
+rstr";
        $sth->bind_columns(undef, \$restaurant,\$address1,\$address2,\
+$zipcode,\$phonenumber,\$record);
        my $row;
        
        while ($row = $sth->fetchrow_arrayref) {
            $restaurants{$row->[5]}=$row->[0] . " " . $row->[1] . " \/
+ " . $row->[3];
            }
        $sth->finish;


        $dbh->disconnect;
    return %restaurants;
}
[download]

<option value="42">Some Restaurant 200 Main St / 04444</option>
[download]

[...] but sorted by the hash values [...]

You'd want to slip a sort into your code like ...

my @restaurantvalues = sort {
  $restaurant{$a} <=> $restaurant{$b}
} keys %restaurant;
[download]

See the Perl FAQ How do I sort a hash (optionally by value instead of key)? for further enlightenment. :)

    --k.

Kanji? Former RSN Kanji? Cool bumping into you here.

Thanx for the input. Didn't know you were a perl monk. :) I knew I'd find a use for that spaceship operator some day.

-Andy