#! perl
use Modern::Perl;

my $count = 0;

OUTER:
for my $n (1 .. 987_654_321)
{
    my %digits;

    ++$digits{$_} for split //, $n;

    for (keys %digits)
    {
        next OUTER if ($_ == 0) || ($digits{$_} > 1) || ($n % $_);
    }

    printf "#%d is %d\n", ++$count, $n;
}