treat_1( shift @$my_list );
treat_others( $_ ) for @$my_list;