for my $member (@constants){
    my $thing;
    eval "sub $member" . '{ $thing = @_ ? shift : $thing }';
}