sub add {
    my $var = shift;
    sub { $var + $_[0] };
}

my $bar = add(3);
my $foo = add(5);

$\ = "\n";
print &$bar(6);
print &$foo(6);