foreach my $name ( sort keys %hash ) {
  local $, = q{, };
  say $name, $hash{$name}[AGE], $hash{$name}[JOB];
}