my @field = qw(
   dn cn surname given_name initials
   generational_qualifier building room_number
   mailstop telephone fax mail tfs_id uid
);

my $table = 'directory_data';

my $sql = "insert into $table (" 
   . join(',', @field)
   . ') values (' 
   . join(',', map '?', @field) 
   . ')'
;