Hi natxo,

Try dereferencing with full syntax:

#!/usr/bin/perl
use strict; use warnings; use feature 'say';

my $data = { name => { foo => 'bar', baz => 'qux' } };

while ( my ( $key, $val ) = each %{ $data->{'name'} } ) {
    say "$key: $val";
}
__END__
[download]

Output:

foo: bar
baz: qux
[download]

Hope this helps!