foreach my $verb (sort keys %verb)
{
  print $verb;
}