my @ary = qw ( 0 0 1 1 1 );
my $val = 0; # or whatever
push @ary, $val unless exists ${{ map { $_ => undef } @ary }}{$val};