Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w

...
);

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

Select or download this

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