package Util::Stuff;
use strict;
use warnings;

package Util::Stuff::aaa1;
sub flag { 1 }
...

package Util::Stuff::aaa2;
sub flag { 0 }
...

package Util::Stuff::aaa3;
sub flag { 1 }
...
...
1;