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

use subs qw(hlookup);

print "The animal in line 2 is ", hlookup("some_csv.csv", "Age", 2), " years old.\n";
print "The critter in line 4 is called ", hlookup("some_csv.csv", "Name", 4), ".\n";

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

     my $csv = Text::CSV->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( $fh );
     $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}
}