Select Code to Download

if ( $seen{ join ' ', sort @F }++ ) {
    $uniq{$F[0]}++;
...
END {
    print for keys %uniq;
}

my @F = <DATA>;