# Aceitunas -> www.perlenespanol.com
    use v5.16;

    for my $m(1..9)
    {
        for my $a(1..9)
        {
            for my $d(1..9)
            {
                say "$m$a$d" if ("$d$d" + "$a$a"+ "$m$m" == "$m$a$d");
            }
        }
    }