You can always use eval, but I don't think it's any better.

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