4 lines
74 B
Perl
4 lines
74 B
Perl
|
my %seen;
|
||
|
|
@seen{qw(1 2 3 a b c 2 3 4 b c d)} = ();
|
||
|
|
my @uniq = keys %seen;
|