# OK , I am certain this is not doing what you expect
 #if ( index($newline{$_}, $skipaccount{$_}) != -1) {
 # $suppress = 1 if $skipaccount{$field[7]};
 #}
 # What you're aiming at (IMHO) is to set suppress to 1 if
 # the item at index 7 in your fields array (which is split from $_ right??)
 # is a member of the skipaccount hash.
 # the if (index($newline{$_} ) makes no sense to me, not in the least with
 # the data that appears to be in those objects.