in reply to 'while', 'foreach' not in perlfunc
As i understand it, you're asking for perldoc -k while