while(<FH>){

$line=$_;
chomp($line);
@values=split(/,/,$line);
@type_val=splice(@values,3,2);
$ref_a=\@type_val;
($type_value,$key_type)=split(/\./,$values[2]);
push(@{$hoh{$key_type}},$type_value); #works fine
push(@{$hoh{$key_type{$type_value}}},$ref_a); #Does NOT WORK
}