4985874875 7685976785 6758679837 7849609576 2857689576 6758767856 3758678576 ##

##

#!c:\perl\bin\perl -w

use XML::Simple;
use CGI::Carp 'fatalsToBrowser';

my $config = XMLin();

print "content-type:text/html\n\n";
 
print "Then";
foreach (@{$config->{bids}->{itemcode}}) {
  print $_, "
";
}

##

##

push @{$config->{bids}->{itemcode}}, 'newcode43545';

print "Now";
foreach (@{$config->{bids}->{itemcode}}) {
  print $_, "
";
}

XMLout($config);