for my $method ('do_something','do_otherthing') {
	around $method => sub {
		my $orig = shift;
		my $self = shift;
		print "around $method\n";
		if ($method eq 'do_something') { ... }
		$self->$orig(@_);
	};
}