#!/usr/bin/perl -w use strict; my %friends = ( c => { hair => "brown", eyes => "brown", }, g => { hair => "blonde", eyes => "green", } ); print "$friends{g}{eyes}\n";