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;



##</code><code>##

uniq1 = [
  '0',
  '1',
  '10',
  '12',
  '13',
  '15',
  '17',
  '19',
  '24',
  '29'
]

same for uniq2