sub make_sub {
    my $name = shift;
    return sub { print "My name is $name\n" };
};

*sub1 = make_sub( 'sub1' );
*sub2 = make_sub( 'sub2' );
*sub3 = make_sub( 'sub3' );