@array= map { map_proc } @array;
@array= grep { map_proc } @array;