while (<$fhIn>) {
@arr = split ("row", $_);