#!/usr/bin/env perl
use strict;
use warnings;
use diagnostics;
use Text::CSV_XS;

my $filename = 'test1.csv';
my %reghash;
open(my $fh, '<', $filename) or die "Can't open $filename: $!";

my $csv = Text::CSV_XS->new ({
	binary		=> 1, #allow special character. always set this
	auto_diag	=> 1, #report irregularities immediately
	});


$csv->column_names ($csv->getline ($fh)); #use header


while (my $row = $csv->getline_hr ($fh)){
	
	printf "Base Address: %s\n", $row->{"Base Addr. (Hex)"};
}
close $fh;