Help for this page

Select Code to Download

Select or download this

pos = 004 
2574
...
T%: 0725
INR: 018034
ID: 00004115

Select or download this

open(IN, "testB.txt") or die "Can't open testB.txt";
open(OUT, ">>testB8.txt")or die "Can't open the file for writing.\n";
...
foreach $Key (sort(keys(%Array))) {
    print (OUT "$Array{$Key} \n");
}