my $td_ref;
if ($type eq 'f') {     
  if ($ref->{'pic'}) {
    $td_ref = [$q->a({href=>"$ref->{'pic'}"}, $ref->{'name'}),
               $ref->{'phone'}, $ref->{'fax'}, $ref->{'loc'},
               $q->a({href=>"mailto:$ref->{'email'}"}, $ref->{'email'})
              ];
  } else {
    $td_ref = ["<LI>".$ref->{'name'},
               $ref->{'phone'}, $ref->{'fax'}, $ref->{'loc'},
               $q->a({href=>"mailto:$ref->{'email'}"},$ref->{'email'})
              ];
  }
} elsif ($type eq 'c') {                

# and so on ...

}
print $q->Tr([$q->td({-bgcolor=>$cellcolor},$td_ref)]);