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