my @array = (1,2,3,4,1,1,3,3,45,54,55);
my %unique;
@unique{@array} = undef;
foreach my $key (sort keys %unique) { 
	print "$key\n";
}