print Hello => ", $name\n";
%hair = ( Peter => 'green', Charles => white => ucfirst('mary') => 'red' );
print "your hair is ",$hair{$name},"\n",
     "Peter's hair is ",$hair{Peter},"\n";