#!/usr/bin/perl -w

use strict;

sub compare {
    my @mem;
    return sub {
        my $x = shift;
        my $y = shift;
        push @mem,$y if($x eq $y);

        return @mem;
    };
};

my $code = &compare;

print "IT1: ",&$code('a','b'),"\n";
print "IT2: ",&$code('b','b'),"\n";
print "IT3: ",&$code('a','c'),"\n";
print "IT4: ",&$code('c','c'),"\n";