sub DoFoo { return do_stuff('Foo', @_) }
sub DoBar { return do_stuff('Bar', @_) }
sub DoBaz { return do_stuff('Baz', @_) }

sub do_stuff
{
    my ($name, ...) = @_;

    # Do stuff here
}