Gasp, what a beautiful orange! Could this really be brilliant Dutch golfer (-ugene in disguise? If so, he might be irritated if someone shaved a single stroke from his lovely solution. ;-)

# One stroke improvement on (-ugene. ^.^
perl -le '$_=join 0,1..9x4;y/0/+/s;print eval'

# And a couple of longer ones for fun.
perl -le 'print eval join"+",map/[^0]+/g,1..9x4'
perl -le 's}}join"+",map/[^0]+/g,1..9x4}ee;print'
perl -le 's;;$%x9998;e;s;;++$%;eg;y;0;+;s;print eval'
[download]

Everyone seems to optimize the algorithm because they understand the deep nature of the problem. After studying the problem for a very long time, here is my highly optimized version: perl -e 'print 37359000, "\n"'

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