Laying Out the Column Headings 

sub add_pdf_column_headings {
  my($pdf) = @_;

  $pdf->setSize(11);
  $pdf->setFont('Helvetica-Bold');
  my $y = $otm + $olh;
  foreach my $x (0, $oc2) {
    $pdf->addRawText('Name',   $x + $ofn,      $y);
    $pdf->addRawText('Ext',    $x + $oxt,      $y);
    $pdf->addRawText('DDI',    $x + $odd + 10, $y);
    $pdf->addRawText('Mobile', $x + $omb + 10, $y);
    $pdf->addRawText('Email',  $x + $oem + 26, $y);
  }
}