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

my $obj = Text::CSV::Hashify->new( {
		file => './data/BuildHash.csv',
		format => 'hoh',
		key => 'A',
		});
		
print my $hash_ref = $obj -> fields;