$$hash{'key1'}{"$var2"} = $value;

##</code><code>##

$$hash->{'key1'}->{"$var2"} = $value;

##</code><code>##

foreach $key (keys %$hash{'key1'}->%* ){
    print "$key\n";
}