sub generate {

    my $FIXED_STRING = 'fixed_string';

    my %persistent;

    return sub {
   
         ...   
}