my $pdf = PDF::Create->new(
        'filename'     => 'Spielerliste.pdf',
        'Author'       => 'Turnierverwaltung R.Meyer',
        'Title'        => 'Spielerliste',
        'CreationDate' => [ localtime ]
    );
my $root = $pdf->new_page('MediaBox' => $pdf->get_page_size('A4'));
my $c = 0;
my $page = $root->new_page();
foreach $row (@tempspieler)
{
    if($c == 50 or ($c -50) % 60 == 0){
        $page = $root->new_page();
    }
    $page->stringl($row);
    $c++;
}
$pdf->close;