print $out_fh grep !/^$user,/, <$in_fh>;