>>
for ($count=0;$fields[$count]>0 ;++$count) {
$this=${$input->{my}}[$count];
if ($this eq $id) {
push...
}
<<

I wouldn't use that. You need to do a while loop through the file like I gave above otherwise you are looping through the input rather than the file and so you can only do as many loops as there are elements in the array which won't give the correct matches.