@A = map { uc(is_name($_)) } grep { is_name($_) } @a; [download]
In reply to Re^5: using shift and $_ in loop by keszler in thread using shift and $_ in loop by leocharre