mask No. ,  block,  size,  base addr (hex), end addr (hex)--about 20 header names
fpg23, b002, 16384, 60000,  63FFF
fpg23, b002, 16384, 800000, 803FFF
fpg23, b003, 0, F00000, F00000
fpg23, b003, 4, F00000, F00004
fpg23, b003, 8, F00000, F00008
--so on for a variable amount of lines 

##</code><code>##

#!/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;