my ( $first, @list ) = @{my_list};
treat_1( $first );
treat_others( $_ ) for @list;