OK, how about something like:

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