#!/usr/local/bin/perl -w

use strict;

my $i = 22;

sub makeAdder {
    my $i = shift;

    return sub {
        my $j = shift;

        return $i + $j;
    };
};

my $add5 = makeAdder(5);
my $add7 = makeAdder(7);

print $add5, "\n";

print $add5->(7), "\n";
print $add7->(6), "\n";