my %unused = map {$_=>1} (0..9);
for my $item (@items) {
    last unless %unused;
    delete $unused{$_} for split '', $item;
}

if (%unused) {
    fail(sprintf "Unused digits: %s", join(',',keys %unused));
}
else {
    ok(1,"All digits used");
}