sub hlookup {
     my $csv_file = shift;
     my $field_name = shift;
     my $row_num = shift;

     my $csv = Text::CSV_XS->new ( { binary => 1 } )  # should set binary attribute.
                 or die "Cannot use CSV: ".Text::CSV->error_diag ();
 
     open my $fh, "<:encoding(utf8)", $csv_file or die "test.csv: $!";

	 

     my $field_num;
     my $first_row = $csv->getline_all( $fh ,3, 1 );
     $csv->column_names(@$first_row);

     my $all =  $csv->getline_hr_all($fh, $row_num - 2, 1);
                            # - 2 since array indexes are 0-based,
                            # and we count our lines 1-based,
                            # and because we've already read the first
                            # line.

    return $all->[0]->{$field_name}
}