<html xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns="http://www.w3.org/TR/REC-html40">
<head>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=us-ascii">
<meta name=Generator content="Microsoft Word 11 (filtered medium)">
<style>
<!--
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0in;
margin-bottom:.0001pt;
font-size:12.0pt;
font-family:"Times New Roman";}
a:link, span.MsoHyperlink
{color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{color:purple;
text-decoration:underline;}
span.EmailStyle17
{mso-style-type:personal-compose;
font-family:Arial;
color:windowtext;}
@page Section1
{size:8.5in 11.0in;
margin:1.0in 1.25in 1.0in 1.25in;}
div.Section1
{page:Section1;}
/* List Definitions */
@list l0
{mso-list-id:542057767;
mso-list-template-ids:-1438342736;}
ol
{margin-bottom:0in;}
ul
{margin-bottom:0in;}
-->
</style>
</head>
<body lang=EN-US link=blue vlink=purple>
<div class=Section1>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>BEFORE:<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'><o:p> </o:p></span></font></p>
<ol start=1 type=1>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l0 level1 lfo1'><span class=keyword><font size=2
face="Courier New"><span style='font-size:10.0pt;font-family:"Courier New"'>use</span></font></span><font
size=2 face="Courier New"><span style='font-size:10.0pt;font-family:"Courier New"'>
feature <span class=literal>':5.10'</span>; <o:p></o:p></span></font></li>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l0 level1 lfo1'><font size=2 face="Courier New"><span
style='font-size:10.0pt;font-family:"Courier New"'> <o:p></o:p></span></font></li>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l0 level1 lfo1'><span class=comment><font size=2
face="Courier New"><span style='font-size:10.0pt;font-family:"Courier New"'>#<----------
Word frequency counter ----------> </span></font></span><font size=2
face="Courier New"><span style='font-size:10.0pt;font-family:"Courier New"'><o:p></o:p></span></font></li>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l0 level1 lfo1'><font size=2 face="Courier New"><span
style='font-size:10.0pt;font-family:"Courier New"'><o:p> </o:p></span></font></li>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l0 level1 lfo1'><span class=comment><font size=2
face="Courier New"><span style='font-size:10.0pt;font-family:"Courier New"'>#
ARRAY </span></font></span><font size=2 face="Courier New"><span
style='font-size:10.0pt;font-family:"Courier New"'><o:p></o:p></span></font></li>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l0 level1 lfo1'><font size=2 face="Courier New"><span
style='font-size:10.0pt;font-family:"Courier New"'><o:p> </o:p></span></font></li>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l0 level1 lfo1'><span class=keyword><font size=2
face="Courier New"><span style='font-size:10.0pt;font-family:"Courier New"'>my</span></font></span><font
size=2 face="Courier New"><span style='font-size:10.0pt;font-family:"Courier New"'>
@words = ("We", "She", "We", "He",
"We", "It", "He", "We",
"She", "He"); <o:p></o:p></span></font></li>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l0 level1 lfo1'><span class=keyword><font size=2
face="Courier New"><span style='font-size:10.0pt;font-family:"Courier New"'>my</span></font></span><font
size=2 face="Courier New"><span style='font-size:10.0pt;font-family:"Courier New"'>
$word_count = @words; <span class=comment># Count the total of words </span><o:p></o:p></span></font></li>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l0 level1 lfo1'><font size=2 face="Courier New"><span
style='font-size:10.0pt;font-family:"Courier New"'><o:p> </o:p></span></font></li>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l0 level1 lfo1'><span class=keyword><font size=2
face="Courier New"><span style='font-size:10.0pt;font-family:"Courier New"'>my</span></font></span><font
size=2 face="Courier New"><span style='font-size:10.0pt;font-family:"Courier New"'>
$i = 0; <o:p></o:p></span></font></li>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l0 level1 lfo1'><span class=keyword><font size=2
face="Courier New"><span style='font-size:10.0pt;font-family:"Courier New"'>my</span></font></span><font
size=2 face="Courier New"><span style='font-size:10.0pt;font-family:"Courier New"'>
$we_counter = 0; <o:p></o:p></span></font></li>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l0 level1 lfo1'><span class=keyword><font size=2
face="Courier New"><span style='font-size:10.0pt;font-family:"Courier New"'>my</span></font></span><font
size=2 face="Courier New"><span style='font-size:10.0pt;font-family:"Courier New"'>
$she_counter = 0; <o:p></o:p></span></font></li>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l0 level1 lfo1'><span class=keyword><font size=2
face="Courier New"><span style='font-size:10.0pt;font-family:"Courier New"'>my</span></font></span><font
size=2 face="Courier New"><span style='font-size:10.0pt;font-family:"Courier New"'>
$he_counter = 0; <o:p></o:p></span></font></li>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l0 level1 lfo1'><span class=keyword><font size=2
face="Courier New"><span style='font-size:10.0pt;font-family:"Courier New"'>my</span></font></span><font
size=2 face="Courier New"><span style='font-size:10.0pt;font-family:"Courier New"'>
$it_counter = 0; <o:p></o:p></span></font></li>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l0 level1 lfo1'><font size=2 face="Courier New"><span
style='font-size:10.0pt;font-family:"Courier New"'> <o:p></o:p></span></font></li>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l0 level1 lfo1'><span class=keyword><font size=2
face="Courier New"><span style='font-size:10.0pt;font-family:"Courier New"'>while</span></font></span><font
size=2 face="Courier New"><span style='font-size:10.0pt;font-family:"Courier New"'>
($i < $word_count){ <o:p></o:p></span></font></li>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l0 level1 lfo1'><font size=2 face="Courier New"><span
style='font-size:10.0pt;font-family:"Courier New"'> <o:p></o:p></span></font></li>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l0 level1 lfo1'><span class=keyword><font size=2
face="Courier New"><span style='font-size:10.0pt;font-family:"Courier New"'>if</span></font></span><font
size=2 face="Courier New"><span style='font-size:10.0pt;font-family:"Courier New"'>
($word[$i] <span class=keyword>eq</span> <span class=literal>'We'</span>)
{ <o:p></o:p></span></font></li>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l0 level1 lfo1'><font size=2 face="Courier New"><span
style='font-size:10.0pt;font-family:"Courier New"'> $we_counter++;
<o:p></o:p></span></font></li>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l0 level1 lfo1'><font size=2 face="Courier New"><span
style='font-size:10.0pt;font-family:"Courier New"'> $i++;
<o:p></o:p></span></font></li>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l0 level1 lfo1'><font size=2 face="Courier New"><span
style='font-size:10.0pt;font-family:"Courier New"'>} <o:p></o:p></span></font></li>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l0 level1 lfo1'><font size=2 face="Courier New"><span
style='font-size:10.0pt;font-family:"Courier New"'> <o:p></o:p></span></font></li>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l0 level1 lfo1'><span class=keyword><font size=2
face="Courier New"><span style='font-size:10.0pt;font-family:"Courier New"'>elsif</span></font></span><font
size=2 face="Courier New"><span style='font-size:10.0pt;font-family:"Courier New"'>
($word[$i] <span class=keyword>eq</span> <span class=literal>'She'</span>)
{ <o:p></o:p></span></font></li>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l0 level1 lfo1'><font size=2 face="Courier New"><span
style='font-size:10.0pt;font-family:"Courier New"'> $she_counter++;
<o:p></o:p></span></font></li>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l0 level1 lfo1'><font size=2 face="Courier New"><span
style='font-size:10.0pt;font-family:"Courier New"'> $i++;
<o:p></o:p></span></font></li>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l0 level1 lfo1'><font size=2 face="Courier New"><span
style='font-size:10.0pt;font-family:"Courier New"'>} <o:p></o:p></span></font></li>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l0 level1 lfo1'><font size=2 face="Courier New"><span
style='font-size:10.0pt;font-family:"Courier New"'> <o:p></o:p></span></font></li>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l0 level1 lfo1'><span class=keyword><font size=2
face="Courier New"><span style='font-size:10.0pt;font-family:"Courier New"'>elsif</span></font></span><font
size=2 face="Courier New"><span style='font-size:10.0pt;font-family:"Courier New"'>
($word[$i] <span class=keyword>eq</span> <span class=literal>'He'</span>)
{ <o:p></o:p></span></font></li>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l0 level1 lfo1'><font size=2 face="Courier New"><span
style='font-size:10.0pt;font-family:"Courier New"'> $he_counter++;
<o:p></o:p></span></font></li>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l0 level1 lfo1'><font size=2 face="Courier New"><span
style='font-size:10.0pt;font-family:"Courier New"'> $i++;
<o:p></o:p></span></font></li>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l0 level1 lfo1'><font size=2 face="Courier New"><span
style='font-size:10.0pt;font-family:"Courier New"'>} <o:p></o:p></span></font></li>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l0 level1 lfo1'><font size=2 face="Courier New"><span
style='font-size:10.0pt;font-family:"Courier New"'> <o:p></o:p></span></font></li>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l0 level1 lfo1'><span class=keyword><font size=2
face="Courier New"><span style='font-size:10.0pt;font-family:"Courier New"'>else</span></font></span><font
size=2 face="Courier New"><span style='font-size:10.0pt;font-family:"Courier New"'>
{ <o:p></o:p></span></font></li>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l0 level1 lfo1'><font size=2 face="Courier New"><span
style='font-size:10.0pt;font-family:"Courier New"'> $it_counter++;
<o:p></o:p></span></font></li>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l0 level1 lfo1'><font size=2 face="Courier New"><span
style='font-size:10.0pt;font-family:"Courier New"'> $i++;
<o:p></o:p></span></font></li>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l0 level1 lfo1'><font size=2 face="Courier New"><span
style='font-size:10.0pt;font-family:"Courier New"'>}
<o:p></o:p></span></font></li>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l0 level1 lfo1'><font size=2 face="Courier New"><span
style='font-size:10.0pt;font-family:"Courier New"'>} <o:p></o:p></span></font></li>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l0 level1 lfo1'><font size=2 face="Courier New"><span
style='font-size:10.0pt;font-family:"Courier New"'> <o:p></o:p></span></font></li>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l0 level1 lfo1'><font size=2 face="Courier New"><span
style='font-size:10.0pt;font-family:"Courier New"'> <o:p></o:p></span></font></li>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l0 level1 lfo1'><span class=keyword><font size=2
face="Courier New"><span style='font-size:10.0pt;font-family:"Courier New"'>my</span></font></span><font
size=2 face="Courier New"><span style='font-size:10.0pt;font-family:"Courier New"'>
%report_list = ("We" => $we_counter, "She" =>
$she_counter, "He" => $he_counter, "It" =>
$it_counter); <o:p></o:p></span></font></li>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l0 level1 lfo1'><font size=2 face="Courier New"><span
style='font-size:10.0pt;font-family:"Courier New"'> <o:p></o:p></span></font></li>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l0 level1 lfo1'><font size=2 face="Courier New"><span
style='font-size:10.0pt;font-family:"Courier New"'> <o:p></o:p></span></font></li>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l0 level1 lfo1'><font size=2 face="Courier New"><span
style='font-size:10.0pt;font-family:"Courier New"'>say
"\n___________________________________________\n<span class=comment>#\n#";
</span><o:p></o:p></span></font></li>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l0 level1 lfo1'><font size=2 face="Courier New"><span
style='font-size:10.0pt;font-family:"Courier New"'>say "<span
class=comment># Word frequency counter\n#"; </span><o:p></o:p></span></font></li>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l0 level1 lfo1'><font size=2 face="Courier New"><span
style='font-size:10.0pt;font-family:"Courier New"'><o:p> </o:p></span></font></li>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l0 level1 lfo1'><font size=2 face="Courier New"><span
style='font-size:10.0pt;font-family:"Courier New"'>say "<span
class=comment>#\n# There where a total of $word_count words!"; </span><o:p></o:p></span></font></li>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l0 level1 lfo1'><font size=2 face="Courier New"><span
style='font-size:10.0pt;font-family:"Courier New"'><o:p> </o:p></span></font></li>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l0 level1 lfo1'><font size=2 face="Courier New"><span
style='font-size:10.0pt;font-family:"Courier New"'>say "<span
class=comment>#\n# We : $report_list{We}"; </span><o:p></o:p></span></font></li>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l0 level1 lfo1'><font size=2 face="Courier New"><span
style='font-size:10.0pt;font-family:"Courier New"'>say "<span
class=comment># She: $report_list{She}"; </span><o:p></o:p></span></font></li>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l0 level1 lfo1'><font size=2 face="Courier New"><span
style='font-size:10.0pt;font-family:"Courier New"'>say "<span
class=comment># He : $report_list{He}"; </span><o:p></o:p></span></font></li>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l0 level1 lfo1'><font size=2 face="Courier New"><span
style='font-size:10.0pt;font-family:"Courier New"'>say "<span
class=comment># It : $report_list{It}"; </span><o:p></o:p></span></font></li>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l0 level1 lfo1'><font size=2 face="Courier New"><span
style='font-size:10.0pt;font-family:"Courier New"'>say "<span
class=comment>#\n# $we_counter $she_counter
$he_counter $it_counter"; </span><o:p></o:p></span></font></li>
<li class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
mso-list:l0 level1 lfo1'><font size=2 face="Courier New"><span
style='font-size:10.0pt;font-family:"Courier New"'>say "<span
class=comment>#\n#__________________________________________\n\n";</span><o:p></o:p></span></font></li>
</ol>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>AFTER:<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'> my %counts; $counts{$_}++ for @words;<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>:)<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>j<o:p></o:p></span></font></p>
</div>
</body>
</html>