_make_aliases('real_method',qw(foo bar baz blort)); sub _make_aliases { no strict 'refs'; my ($main_spelling,@alternates) = @_; foreach my $new_method (@alternates) { *{$new_method} = sub { my $self = shift; $self->$main_spelling(@_) } } }