Hi

note: the following is not intended to be a fix to your program; instead I try to show you a few steps you could have done to identify faulty/suspicious parts of your program...

First, you have not followed the golden rule to

use strict;
use warnings;
[download]

Then you would have found out some obvious mistakes like

for (@myarray1) { last if $conf eq $_; $i++; };
[download]

Secondly, you use debug-output, which is fine ... however it is not detailed enough; e.g.

print "Values is @values \n";
[download]

Here you can't easily see that the array @values might not contain what you want (but many empty elements addtionally). This leads to many unitialized values in the further run of your program. You could use something like print join("XXX\n", @values);

If you look at your debug-output to more detail, you would see that the first (non-empty) element of @values is

0|0|{A=145,B=2,C=12,D=18}|!
[download]

and

Conf is 0
Rest is 0
[download]

... so your split is not working as expected ...

When debugging code, you should start from the beginning. Solve the points shown above. And only when you found a solution for those, continue by looking at the rest of the program. It will be much easier that way.

HTH, Rata