See: perldoc -f do
And read the part about "do BLOCK". That should explain it quite well.