$Word->Selection->TypeText ({ Text => "The Title",
                                       Style => 'Heading 1',
  }); 


##</code><code>##


$Word->Selection->{Style} = wdStyleHeading1;
$Word->Selection->TypeText ({ Text => "The Title"});