perl -ne '@ar = split /\^/; $key="$ar[0],$ar[1],$ar[2],$ar[3]\n"; print $key if ( ! $seen{$key} ++ );' datafile