( $Creator, $ContactMethod, $Contact, $FileName, 
  $Game , $Section, $Width, $Height, $File, ) =
       map { param } qw( Creator ContactMethod Contact FileName 
                         Game  Section Width Height File )