my %seen = () ; my @uniq_rows = grep { !$seen{$_}++ } ;