my @my_list = (...); treat_all(@my_list); sub treat_all { my ( $first, @others ) = @_; treat_1($first); treat_others($_) for @others; }