Reads less like Perl in Lisp:
(loop for i below 10 when (zerop (mod i 3)) collect (* i i)) (loop for i below 10 when (zerop (mod i 3)) collect (* i i)) (iter (for i below 10) (if (zerop (mod i 3)) (collect (* i i))))