Perhaps you should look at PDF::Template instead. It is designed to do this sort of thing.

  use PDF::Template

  my $pdf = PDF::Template->new(
     filename => 'some_template.xml',
  );

  $pdf->write_file('some_file.pdf');
[download]

With a template like:

<pdftemplate pagesize="Letter" h='8'>
 <loop name="FOO">
  <pagedef>
    <font face="Times-Roman">
      <row>
        <textbox w="80%"><var name="name"/></textbox>
        <textbox w="20%"><var name="number"/></textbox>
      </row>
    </font>
  </pagedef>
 </loop>
</pdftemplate>
[download]