Re^2: removing duplicate entries from an array

[neniro]

timtowtdi using Set::Scalar:

#!/usr/bin/perl

use strict;
use warnings;

use Set::Scalar;
use Data::Dumper;

my @origin = (1, 2, 3, 2, 3, 4, 1, );
my $s = new Set::Scalar;
$s->insert(@origin);
my @unique = $s->elements;
print Dumper \@unique;