Expensive Dinner solutions

Expensive Dinner was solved using Perl by 1 contestant.