foreach my $in ( split( /,/, readline( scalar($fh) ) // "" ) ) {