# what's in the %alphabet?
foreach my $letter (keys %alphabet)
{
  print "$letter\n$alphabet{$letter}\n";
}
# what's $s?
print "$s\n";<br>

# does a key/value pair exist in %alphabet for $s?
print "$alphabet{$s}\n";<br>