sub somemethod {
   my $self= shift;
   my ($a,$b,$c)= member_alias ($self, qw/a b c/);
   ...