print $word{'charlie'};