#!/usr/bin/perl -w

use strict;

my %friends = (
                c => {
                        hair => "brown",
                        eyes => "brown",
                },

                g => {
                        hair => "blonde",
                        eyes => "green",
                }
);

print "$friends{g}{eyes}\n";

##</code><code>##

for my $i(keys %friends) {
  print $i
    if ($friends{$i}{eyes} eq "brown" && $i =~ /^J/);
}