push @{$hash{$key}}, { $valname => [ $value, $type, $flag ] };

##</code><code>##

foreach my $i(keys %hash) { 
    print "i=$i\n";
    foreach my $j(@{$hash{$i}}) { 
        my ($valname) = keys %{ $j };
        print "valname = $valname\n";
        print "content = ", $j->{$valname}[0], "\n";
        # etc.
    }
}