Laying Out One Entry 

sub add_pdf_entry {
  my($pdf, $row, $col, $data) = @_;

  my $x = $oc2 * $col;
  my $y = $otm - $olh * $row;

  my $name = "$data->{first_name} $data->{surname}";

  $pdf->addRawText($name,           $x + $ofn, $y);
  $pdf->addRawText($data->{ext},    $x + $oxt, $y);
  $pdf->addRawText($data->{ddi},    $x + $odd, $y);
  $pdf->addRawText($data->{mobile}, $x + $omb, $y);
  $pdf->addRawText($data->{email},  $x + $oem, $y);
}