If one were less inclined to type that could be written as:

my ( $player, 
     $playerphone, 
     $entry, 
     $message, 
     $memberid, 
     $email, 
     $partner, 
     $partnerphone, 
     $section, 
     $level, 
     $street, 
     $city, 
     $state, 
     $zip, 
     $party, 
     $guests ) = ('') x 16;
[download]

But I don't think that will necessarily help because all of these variables are being assigned to in the next few lines.

/J\