push @data, V(split) while <$in_fh>;