#! perl
use strict;
use warnings;
use v5.14;

sub make_add
{
    my $addpiece = shift;
    sub add { my $c = shift; return ($c + $addpiece); }
    return \&add;
}

my  $f1 = make_add(20);
my  $f2 = make_add(35);
say $f1->(10);
say $f2->(10);