#!/usr/bin/perl

use strict; use warnings;
use Data::Dumper;

my @array = (1,1,3,3,2,3,5,7,5,2);

my %h;
$h{$_}++ for @array;
@array = keys %h;
print Dumper \@array;