while( my( $key, $val ) = each( %{ { testa() } } ) {
    print "Key: $key\tValue: $val\n";
}