Hash

#!usr/bin/perl

use Perl6::Say;
use Data::Dumper;

my %hash = ('makoto' => 'perl',
    'nozaki' => {});

sub push_hash{
    my %hash = @_;
    foreach(keys %hash){
        if($hash{$_} !~ /HASH/){
            say $hash{$_};
        } 
    }
}

say "\$hash{nozaki} = {}";
push_hash(%hash);

say "\$hash{nozaki} = 'Ruby'";
$hash{nozaki} = 'Ruby';
push_hash(%hash);