Build array of unique data from a file

uniq.pl

#!/usr/bin/env perl

use strict;
use warnings FATAL => 'all';

my %seen;
my @uniq;

while ( <> ) {
    chomp;
    # Split on whitespace
    my @data = split;
    # First three columns are the key
    next if $seen{$data[0]}{$data[1]}{$data[2]}++;
    push @uniq, \@data;
}