require Text::CSV;
my $csv = Text::CSV->new;

open( FH, "<$fh" ) || die "Error: no open for $fh: $!";

foreach (<FH>) {
            if ( $csv->parse($_) ) {

                my @field = $csv->fields;
                my ( $Emp_ID, $Emp_Name ) = @field;

              
                   push(@id, $Emp_ID);
                   push(@names, $Emp_Name);
               
                }
  
}    # end foreach

close(FH);