Method #3

#!F:\Perl_program\perl\bin\perl -w  #I am using Portable Strawberry PERL on Windows XP.

use strict;
use warnings;

   open (HCDIR, "<HCDir2.csv") or die "$!";
   open (FINAL, "<final2.csv") or die "$!";
   open(NBMD, ">nbmd.csv") or die "$!";
	
      our $line1;
      our $line2;
      our @lines1 = (<FINAL>);
      our @lines2 = (<HCDIR>);

      foreach $line2(@lines2){
         our @linearr2 = split (',', $line2);
         our $fullname = $linearr2[0];
         our $branch = $linearr2[1];
      }

      foreach $line1(@line1){
         our @linearr1 = split (',', $line1);
         our $username = $linearr1[0];
         our $date_modified = $linearr1[1];
      }

      while (<FINAL>){
         if ($username eq $fullname){
            our $nbmd = join (',', "$username,$branch$,date_modified");
            chomp $nbmd;
            print NBMD ("$nbmd\n");			
         }
      }	

   close (FINAL);
   close (HCDIR);
   close (NBMD);