use strict;
use warnings;

for ('A' .. 'C')
{
    print "Outer: \$_ = $_\n";

    for (10 .. 12)
    {
        print "    Inner: \$_ = $_\n";
    }

    print "Outer: \$_ = $_\n";
}