perl -naF"/\^/" -e '$key="$F[0],$F[1],$F[2],$F[3]\n"; print $key if ( ! $seen{$key} ++ );' datafile
4363,7619082,309839685,309841122