my $base = $row->{' base addr. (hex)'}; $reqhash{$base} = $row; #### use Data::Dumper; print Dumper( $row ); #### my $base = "$row->{' base addr. (hex)'} $row->{' end addr (hex)'}"; $reghash{$base} = $row; #### my $base = $row->{' base addr. (hex)'}; my $end = $row->{' end addr (hex)'}"; $reghash{$base}{$end} = $row;