>>966

use strict;
use warnings;

# use Data::Dumper;

my %person;
my $name;
while (<>) {
  chomp;
  my ($key, $value) = split '：';
  if ($key eq '名前') {
    $name = $value;
  }
  elsif ($key eq '好きなアルファベット') {
    $value = [ split m(,\s), $value ];
  }
  $person{$name}{$key} = $value;
}

# print Dumper(\%person);
exit;