member_alias ($self, qw/a b c/, my($a, $b, $c));