use strict;
use warnings;

# CPAN packages
use Data::Dumper;

my @array = (29,24,0,24,24,12,0,10,10,19,17,15,13,1,12,12,24);
my %hash1;
# slice
@hash1{@array} = undef;
my @uniq1 = sort keys %hash1;
print 'uniq1 = ' . Dumper \@uniq1;

# map
my %hash2 = map { $_ => 1 } @array;
my @uniq2 = sort keys %hash2;
print 'uniq2 = ' . Dumper \@uniq2;