#!/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__

##</code><code>##

foo: bar
baz: qux