use strict;
use warnings;
use diagnostics;

my @nums = (17, 10, 20, 33, 30, 40, 10, 33, 40, 15, 16, 17);

my %unordered = map { $_ => undef } @nums;

my @un_nums = join " ", keys %unordered; 
print "@un_nums\n";