You are missing a semicolon ( ; ) at the end of your print statements, that's your sytax error. The other is just a kind, and gentle warning. Try to use diagnostics;, it gives to more information about what might have gone wrong.

$will->code for @food or $$;