Yes, a Perl one-liner:<p><pre><code>    perl -E &#x27;map { say } map { { 3 =&gt; &quot;Fizz&quot;, 5 =&gt; &quot;Buzz&quot;, 15 =&gt; &quot;FizzBuzz&quot; }-&gt;{ sub { my $val = shift; (grep { $val % $_ == 0 } (3, 5, 15))[-1] }-&gt;($_) } || $_ } (1..100)&#x27;
</code></pre>
Or a little more readable:<p><pre><code>    map { say }
    map {
        { 3 =&gt; &quot;Fizz&quot;, 5 =&gt; &quot;Buzz&quot;, 15 =&gt; &quot;FizzBuzz&quot; }-&gt;{
            sub {
                my $val = shift;
                (grep { $val % $_ == 0 } (3, 5, 15))[-1]
            }-&gt;($_)
        } || $_ 
    } (1..100)</code></pre>