C:\Dokumente und Einstellungen\sak>perl
my @artenum = qw/1 2 3 4/;
my $artvalue = "3";

foreach (@artenum) {
   my $selected = $artvalue eq $_ ? 'selected="selected"' : '';
   print qq~<option $selected value="$_">$_</option>\n~;
}
^Z

<option  value="1">1</option>
<option  value="2">2</option>
<option selected="selected" value="3">3</option>
<option  value="4">4</option>

#!/usr/bin/perl
use strict;
use CGI::Carp qw( fatalsToBrowser );
print "Content-type: text/plain\n\n";

my @recordset =qw/test auftr 1/;
my @artenum = qw/1 2 3 4/;
my $artvalue = $recordset[2];

print "<form name='form1'>
<select name='status' size='1'>
<option value=$artvalue>$artvalue</option>";

foreach (@artenum) {
    if (!($artvalue eq $_)){
   print "<option value=$_>$_</option>";
    
    }
}
print "</select></form>";