use strict;
use warnings;
my @Uniq = uniq('a', 'b', 'c', 'a', 'b', 'a');
print "@Uniq\n";
sub uniq {
    return keys %{{map {$_=>1} @_}};
}

OUTPUT:
c a b
[download]

PerlMonks graciously bestowed by Tim Vroom.
PerlMonks went on a couple dates, and then decided to shack up with The Perl Foundation.
Wonderful Web Servers and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.