Help for this page
print map { /....(.)/ and $++$+ } "@{[0..9]}";
my @c = ( my @a = each %ENV, my @b = each %SIG ); print @a . " + " . @b . " = " . @c . "\n";