Thanks Darren.

The code works... it's just that I do not how to get the fax flag line identified and inserted as a faxNumber field.

Anyway, here it is:

#!/usr/bin/perl

use strict;
use warnings;
use Text::CSV;

my $file = 'Employee.csv';

my $csv = Text::CSV->new();

open (CSV, "<", $file) or die $!;

while (<CSV>) {
    next if ($. == 1);
    if ($csv->parse($_)) {
        my @columns = $csv->fields();
        my @choppedcols = $csv->fields();
        
        my $username =  lc($columns[1]);
        my $first_name = ($columns[2]); 
        my $last_name = ($columns[3]);
        my $department = ($columns[4]);
        my $LocationBuilding = ($columns[5]); 
        my $phoneid = ($columns[6]);
        my $faxflag = ($columns[7]);
        my $exchange = ($columns[8]);
        my $telephone = ($columns[8]).-($columns[6]);
        my $title = ($columns[9]);
        my $manager = lc($columns[10]);
  
        print "dn: uid=$username\ngivenName: $first_name\nsn: $last_na
+me\ndepartment: $department\nbuildingName: $LocationBuilding\ntelepho
+nenumber: $
telephone\ntitle: $title\nmanager: uid=$manager\n\n";
    } else {
        my $err = $csv->error_input;
        print "Failed to parse line: $err";
    }
}
close CSV;
[download]