my sub for_inc {
            my ($coderef, $filename) = @_;
            return \$source
        };

        my $for_inc_ref = \&for_inc;

##</code><code>##

 
my $for_inc_ref = sub 
    {
        my ($coderef, $filename) = @_;
        return \$source
    };