ok, this looks like some perl API for some type of database: but i'm having difficulties understanding you . do you want your results to look like this : 

1,WG0045068-DNA,A01,0,102186_A01_WTCCCT519791,...
2,WG0045068-DNA,B01,0,102186_B01_WTCCCT519793,...
3,WG0045068-DNA,C01,0,102186_C01_WTCCCT519805,...
1,WG0045066-DNA,A01,0,102176_A01_WTCCCT527545,...
2,WG0045066-DNA,B01,0,102176_B01_WTCCCT527498,...

[download]
or ... could you give us an example of how the results should look like ...

Update:

let me simplify :

i have i file with lines like : 

WG0045068-DNA,A01,0,102186_A01_WTCCCT519791,...
WG0045068-DNA,B01,0,102186_B01_WTCCCT519793,...
WG0045068-DNA,C01,0,102186_C01_WTCCCT519805,...
WG0045068-DNA,A01,0,102187_A01_WTCCCT519791,...
WG0045068-DNA,B01,0,102188_B01_WTCCCT519793,...
WG0045068-DNA,C01,0,102187_C01_WTCCCT519805,...
WG0045068-DNA,A01,0,102187_A01_WTCCCT519791,...
WG0045068-DNA,B01,0,102188_B01_WTCCCT519793,...
WG0045068-DNA,C01,0,102186_C11_WTCCCT519805,...

and i want to get:

1,WG0045068-DNA,A01,0,102186_A01_WTCCCT519791,...
2,WG0045068-DNA,B01,0,102186_B01_WTCCCT519793,...
3,WG0045068-DNA,C01,0,102186_C01_WTCCCT519805,...
4,WG0045068-DNA,C01,0,102186_C11_WTCCCT519805,...
1,WG0045068-DNA,A01,0,102187_A01_WTCCCT519791,...
2,WG0045068-DNA,C01,0,102187_C01_WTCCCT519805,...
3,WG0045068-DNA,A01,0,102187_A01_WTCCCT519791,...
1,WG0045068-DNA,B01,0,102188_B01_WTCCCT519793,...
2,WG0045068-DNA,B01,0,102188_B01_WTCCCT519793,...

[download]
to get this you could creata some counter like this:
open (FILE1, "<", "filein.txt") || die "$!";
open (FILE2, ">", "fileout.out") || die "$!";
my $counter;
while(<FILE1>){
  m/.+,.+,\d+,(\d+)_.+/;
  $counter->{$1}++ ;
  print FILE2 "$counter->{$1},$_";
}
close FILE1;
close FILE2; 


result would be :
1,WG0045068-DNA,A01,0,102186_A01_WTCCCT519791,...
2,WG0045068-DNA,B01,0,102186_B01_WTCCCT519793,...
3,WG0045068-DNA,C01,0,102186_C01_WTCCCT519805,...
1,WG0045068-DNA,A01,0,102187_A01_WTCCCT519791,...
1,WG0045068-DNA,B01,0,102188_B01_WTCCCT519793,...
2,WG0045068-DNA,C01,0,102187_C01_WTCCCT519805,...
3,WG0045068-DNA,A01,0,102187_A01_WTCCCT519791,...
2,WG0045068-DNA,B01,0,102188_B01_WTCCCT519793,...
4,WG0045068-DNA,C01,0,102186_C11_WTCCCT519805,...

not sorted, but sorting should not be a problem :)

[download]
i'm still not sure if this is what you would like to accomplish :)

Update 2:

ok cool, so you have a file or some variable with some data in it

input.file
102186
102176

[download]
, what i would do is hash that data 

open (FILEIN, "<", "input.file") || die "$!";
my $counter;
while(<FILEIN>){
  $counter->{$_} = 0;
}
close FILEIN;

[download]
and now you have a counter so what i would do next is :
elsif($output eq "Inhouse") {
         
...

and here just implemente the counter. you can do the same thing for fo
+r previous decisions, if needed 
...
        
            else {
                $counter->{$save{$sam}{plateid}}++;
                print OUT "$counter->{$save{$sam}{plateid}},$save{$sam
+}{platename},$save{$sam}{well},$save{$sam}{case},$save{$sam}{plateid}
+_$save{$sam}{well}_$save{$sam}{clone},Homo sapiens,$save{$sam}{gender
+},,$save{$sam}{vol},50,$save{$sam}{extmethod},,0,$save{$sam}{father},
+$save{$sam}{mother},,$save{$sam}{source}\n";
            
            }
                
 ...

[download]

In reply to Re: Iteration in perl by baxy77bax
in thread Iteration in perl by Anonymous Monk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.