A few of things. You have a typo ($totalpriece) which leaves $totalprice undefined, $author is not scoped outside the while, and $seach is a typo.

I didn't actually look to see if the code worked. It's sort of pointless to add use strict and -w if you don't try to run it. The disclaimer "This code was not tested" would have been better than Maybe this works . . . .

--Jim