else {
# this is a form for deletion or modification, so we will have $rec{'fieldname'}
print qq|<input type="hidden" name="fieldname" value="1">|;
$rec{'fieldname'} =~ s/,,/,---,/g;
my @array = split/,/,$rec{'fieldname'};
my $i = 1;
while (@array) {
my ($identifier,$quantity,$select,$specs) = splice (@array,0,4);
print qq|# again, do what you like but leave names and values as they are
<input type="text" name="fieldname_identifier_$i" value="$identifier"><br>
<input type="text" name="fieldname_quantity_$i" value="$quantity"><br>
<input type="text" name="fieldname_select_$i" value="$select"><br>
<input type="text" name="fieldname_specs_$i" value="$specs"><br>|;
++$i;
}
}