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>