Is using the symbol table cheating?

use Data::Dumper;

my @array = qw(1 3 4 55 4 3 4 22 1 3 4 3 2 2 3 34);
my @uniqs;
foreach (@array) {
    
    ${"uniq_$_"} and next;
    ${"uniq_$_"} = 1;
    push @uniqs, $_;
    
}

print Dumper \@uniqs;
[download]