Select Code to Download

input
1,ken,james,smith,s
...

output
11,ken,james,smith,f

seek $ifh, 0, 0;

...
     print  $_, "\n"
        if  ! $hash{$key}++;
}