use strict;
use CGI qw/:all/;
my %software = qw/2 LanDeskManagement 3 SAP_GUI_6.2 1 LotusNotes/;
my @installed = qw/3 2/;
my $select = scrolling_list(-name=>'Installationen',
                            -multiple=>1,
                            -values=>[sort {$software{$a} cmp $software{$b}} keys %software],
                            -default=>[@installed],
                            -labels=>\%software
                            );

print $select;
_ _ END _ _
<select name="Installationen" size="3" multiple="multiple">
<option selected="selected" value="2">LanDeskManagement</option>
<option value="1">LotusNotes</option>
<option selected="selected" value="3">SAP_GUI_6.2</option>
</select>