use v5.14;
use warnings;

sub uniq {
    my @u;

    for my $x (@_) {
        next if grep { $x == $_ } @u;
        push @u, $x;
    }

    return @u;
}

say join ', ', uniq(29,24,0,24,24,12,0,10,10,19,17,15,13,1,12,12,24);