Perhaps you mean to say something like:

push @$x, $digit{$nu}
    unless grep { $_ eq $digit{$nu} } @$x;
[download]