ハッシュのすべてのキーと値を取得する。keys関数とvalues関数。

#!/usr/bin/env perl
use strict;
use warnings;

use Moose::Autobox;
use Perl6::Say;


my $mother_of = { 
    Taro => 'Tomoko',
    Naoko => 'Shizuka',
    Kenji => 'Sayo',
};


### 1: ハッシュのすべてのキーを取り出す
say $mother_of->keys->join(',');

### 2: ハッシュのキーの個数を取得する
say $mother_of->keys->length;

### 3: ハッシュのすべて値を取り出す
say $mother_of->values->join(',');

### 4: ハッシュの値の個数を取得する
say $mother_of->values->length;

__END__

See also:
http://d.hatena.ne.jp/perlcodesample/20080210/1202657875