for my $digit (@digits) { next if $digit ~~ @number; push @number, $digit; append_digit(); pop @number; }