print map { "$_|" } @my_list #### $my_id_list .= $my_list[$i]."|"; #### push ( @my_id, "$my_list[$i]|" ); #### push ( @my_id, $my_list[$i] ); #### join('|',@my_id);