Add most likely working Perl code for the problem 35.
Perl#35: use hashes