#!/usr/bin/perl
# your code goes here
 
#!/usr/bin/perl
use strict;
use warnings;
 
our ($a, $b, $c);  # Global variables
 
sub g {
    my ($x) = @_;
    print "$a $b $c\n";
    return $a + $b + $c + $x;
}
 
sub f {
    my ($a) = @_;
    my $b;
    $b = 1;
    $c = 2;
    {
        my $b;
        $b = 9;
        $a = 4;
        $c = $b + $c;
        {
            my $a;
            $a = 3;
            $a = g(1);
            print "$a $b $c\n";
        }
    }
    {
        # inner scope 2
        my $m;
        my $n;
        $m = g(3);
        print "$m $a $b $c\n";  # Note: Perl will ignore the extra $c in print
    }
    return $a + $b + $c;
}
 
{
    my $b;
    my $c;
    $a = 11;
    $b = 2;
    $a = f($a);
    print "$a $b $c\n";
}

IyEvdXNyL2Jpbi9wZXJsCiMgeW91ciBjb2RlIGdvZXMgaGVyZQoKIyEvdXNyL2Jpbi9wZXJsCnVzZSBzdHJpY3Q7CnVzZSB3YXJuaW5nczsKCm91ciAoJGEsICRiLCAkYyk7ICAjIEdsb2JhbCB2YXJpYWJsZXMKCnN1YiBnIHsKICAgIG15ICgkeCkgPSBAXzsKICAgIHByaW50ICIkYSAkYiAkY1xuIjsKICAgIHJldHVybiAkYSArICRiICsgJGMgKyAkeDsKfQoKc3ViIGYgewogICAgbXkgKCRhKSA9IEBfOwogICAgbXkgJGI7CiAgICAkYiA9IDE7CiAgICAkYyA9IDI7CiAgICB7CiAgICAgICAgbXkgJGI7CiAgICAgICAgJGIgPSA5OwogICAgICAgICRhID0gNDsKICAgICAgICAkYyA9ICRiICsgJGM7CiAgICAgICAgewogICAgICAgICAgICBteSAkYTsKICAgICAgICAgICAgJGEgPSAzOwogICAgICAgICAgICAkYSA9IGcoMSk7CiAgICAgICAgICAgIHByaW50ICIkYSAkYiAkY1xuIjsKICAgICAgICB9CiAgICB9CiAgICB7CiAgICAgICAgIyBpbm5lciBzY29wZSAyCiAgICAgICAgbXkgJG07CiAgICAgICAgbXkgJG47CiAgICAgICAgJG0gPSBnKDMpOwogICAgICAgIHByaW50ICIkbSAkYSAkYiAkY1xuIjsgICMgTm90ZTogUGVybCB3aWxsIGlnbm9yZSB0aGUgZXh0cmEgJGMgaW4gcHJpbnQKICAgIH0KICAgIHJldHVybiAkYSArICRiICsgJGM7Cn0KCnsKICAgIG15ICRiOwogICAgbXkgJGM7CiAgICAkYSA9IDExOwogICAgJGIgPSAyOwogICAgJGEgPSBmKCRhKTsKICAgIHByaW50ICIkYSAkYiAkY1xuIjsKfQ==