my @chain = qw(min_max count sort_inline esrever); my ($result) = map { $obj->$_ } @chain;