for my $id (@selected) {
    $list{$id}{selected} = 1;
}

for my $key (keys %list) {
    print qq(<li name="$key");
    print ' class="selected"' if $list{$key}{selected};
    print ">$list{$key}\n";
}