#!/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>";