in reply to Adding 2 + 2

print map { /....(.)/ and $++$+ } "@{[0..9]}";

[download]

my @c = ( my @a = each %ENV, my @b = each %SIG );

print @a . " + "
    . @b . " = "
    . @c . "\n";

[download]
A word spoken in Mind will reach its own level, in the objective world, by its own weight

In Section Cool Uses for Perl