perldoc -f shift