my %elem_count = ();

for my $elem (@array) {
  $elem_count{$elem}++;
}

my @uniques = ();

for my $elem (keys %elem_count) {
  push @uniques, $elem if $elem_count{$elem} == 1;
}