sub translate {
  my ($noun, $verb, $object) = @_;
  my $german = "$noun $object $verb";
  return($german);
}